[xyzzy:00267] text-newline-and-midashi

["Seiya Suda" <EZU11330@xxxxxxxxxxxxxxxx>]

みなさん、こんにちは。須田です。

次のようなコマンドが必要だったので、亀井さんのライブ
ラリーを参考にしてでっちあげましたが、どこをどう変え
ればスマートになるでしょうか。お知恵を拝借したいです。

(defun text-newline-and-midashi (&optional (arg 1))
  (interactive "*p")
  (let ((midashi-mark))
    (save-excursion
      (goto-bol)
      (when (looking-at "[■□◇◆●◎○・　]")
        (setq midashi-mark
           (buffer-substring
        (point)
        (progn (forward-char)
   (point))))))
    (delete-trailing-spaces)
    (insert #\LFD arg)
    (if midashi-mark
      (insert midashi-mark)
      ())))
-----------
須田誠也
EZU11330@xxxxxxxxxxx