[Date Prev][Date Next][Thread Prev][][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 )