TSfree 発言

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

> > (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)))))

> beginning-of-lineだけ書き換えて試してみました。
> 「不正なデータ型です」となってしまいます。nil と 数値を比較しようとして
> エラーになっているようです。これはEmacsとxyzzyで違うところなんでしょうね。
> #xyzzyのLispは Common Lispもどきということらしいので

(next-line) と (next-line 1) の引数も違うようですので、ここも変えないと
エラーになりますです。

xyzzy のほうを最大限生かすと

(defun put-texinfo-comment (&optional arg)
  (interactive "p")
  (save-excursion
    (dotimes (l arg)
      (goto-bol)
      (insert "@c ")
      (next-line))))

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

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