[xyzzy:00268] Re: text-newline-and-midashi

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

"Seiya Suda" <EZU11330@xxxxxxxxxxxxxxxx> さん、こんにちは。

        Mon, 24 Aug 1998 20:21:41 +0900 の
        [xyzzy:00267] text-newline-and-midashi
        への返事です.

| ラリーを参考にしてでっちあげましたが、どこをどう変え
| ればスマートになるでしょうか。お知恵を拝借したいです。

特に問題ないと思いますけど。まあ、しいて言えばこうかな? 文字列はメモリを
食うので(Lisper はそんなこと考えちゃ駄目)。

(defun text-newline-and-midashi (&optional (arg 1))
  (interactive "*p")
  (let ((midashi-mark (save-excursion
			(goto-bol)
			(and (looking-at "[■□◇◆●◎○・　]")
			     (following-char)))))
    (delete-trailing-spaces)
    (insert #\LFD arg)
    (when midashi-mark
      (insert midashi-mark))))


--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx