[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: w3m-examine-command-line-args で無限ループ
>> On Thu, 27 Sep 2007 10:44:08 +0900
>> yamaoka@xxxxxxx (Katsumi Yamaoka) said as follows:
>この件に最初に気がついたときは文句を言ったんですが、RMS の「別名の非対話
>関数を作れば?」で幕が下がりました。でも、短い良い関数名なんですよね w3m
>って。
汚い解決案(1).
(defun w3m-internal (...)
従来の w3m() から (interactive) を除いた関数)
(defun w3m-redefine-as-command ()
(defun w3m (...)
(interactive ...)
(apply 'w3m-internal args)))
(defun w3m (&rest args)
(apply 'w3m-internal args)
(w3m-redefine-as-command))
(unless (and (not noninteractive) command-line-args-left)
(w3m-redefine-as-command))
汚い解決案(2).
(defun w3m-interactive ()
従来の w3m() と同じ定義)
(defun w3m-non-interactive (&rest args)
(apply 'w3m-interactive args)
(defalias 'w3m 'w3m-interactive))
(defalias 'w3m 'w3m-non-interactive)
(unless (and (not noninteractive) command-line-args-left)
(defalias 'w3m 'w3m-interactive))
--
土屋 雅稔 ( TSUCHIYA Masatoshi )