w3m-examine-command-line-args で無限ループ

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxx>]

白井です。

From: yamaoka <cvsd@xxxxxxxxxx> さん曰く
Subject: /storage/cvsroot/emacs-w3m: (w3m-examine-command-line-args): Inhi...
Message-ID: <1190169202.2347@xxxxxxxxxx>
Date: Wed, 19 Sep 2007 02:33:22 -0000

> Log Message:
> (w3m-examine-command-line-args): Inhibit Emacs head from displaying startup
>  screen when emacs-w3m runs in the batch mode;
>  improve parsing of arguments.

ですが、なにか変です。w3m を起動するときに無限ループになるときが
あります。

OK な立ち上げ方
emacs -f w3m
emacs -f w3m "http://emacs-w3m.namazu.org/"
emacs -f mew -f w3m "http://emacs-w3m.namazu.org/"
emacs -f w3m "http://emacs-w3m.namazu.org/" -f mew

NG な立ち上げ方
emacs -f mew -f w3m 
emacs -f mew -f w3m -f hoge

また、Emacs が立ち上がった後に "M-x w3m" としても無限ループにな
るときもあります。これは、"emacs -f mew" したあとだと、

      (while directives
	(setq directive (car directives))
	(if (and (setq args (member directive command-line-args))
		 (progn
		   (while (and (not (equal (cadr args) "w3m")) (*1)
			       (setq args (member directive args))))
		   args))
	    (setq directives nil)
	  (setq directives (cdr directives))))

(*1) で無限ループしています。
ぼくが直すと、なんだか間違えそうなのでよろしくです (__)

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxx)