作者: Bruce.
日時: 2005/11/29(19:27)
Bruce.です。

閑舎 writes:

> かと思いますが、&optional があるかどうか…。

あります。

で、結局↓こうなりました。

(defun put-texinfo-comment (&optional arg)
 (interactive "*p")
   (let ((l 0))
     (if (null arg)
         (setq arg 1))
     (dotimes (l arg)
       (goto-bol)
       (insert "@c ")
       (next-line 1))))

カーソルは挿入後の位置にあったほうが良いのでsave-excursionは
やめました(というかあっても最初はカーソルが移動していた。なんで?)。

閑舎さん、Zazelさんありがとうございます。

素直にMeadowあたりでTexinfoモードを使えという話もありますが、
とりあえず翻訳を進める分にはほとんどのTexinfoコマンドは入力する
必要がありませんので。

いじょ。