TSfree 発言

kbk@... (Bruce.) さん wrote.

> (defun put-texinfo-comment (arg)
>   (interactive "*N")
>   (save-excursion
>     (dotimes (l arg)
>       (goto-bol)
>       (insert "@c ")
>       (next-line))))
> 
> という、Texinfoのコメントコマンドを指定行分行頭に付加するという
> マクロなんですが、これを「C-u で前置引数を与えたときにはその回数だけ、
> そうでないときは1回だけ挿入を行う」ようにしたいのですが、
> どうすればよいのでしょうか?

ちょっと xyzzy がないので違っているかもしれませんが

(defun put-texinfo-comment (&optional arg)
  (interactive "p")
  (let ((l 0))
    (save-excursion
      (while (< l arg)
	(beginning-of-line)
	(insert "@c ")
	(setq l (+ l 1))
	(next-line 1)))))

でどうでしょう？

--
本田博通（閑舎）
テキストとスクリプトの http://www.rakunet.org/TSNET/