[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: M-x w3m
>> On Fri, 12 Oct 2001 15:23:33 +0900
>> 「土」== tsuchiya@pine.kuee.kyoto-u.ac.jp (TSUCHIYA Masatoshi) said as follows:
土> というわけで、以下のような変更を考えてみたのですが、どうでしょうか。
すみません、肝心なところに間違いがありました。
w3m() の interactive form 部分に適用するべき差分は、
土> @@ -3973,10 +3978,11 @@
土> The value of `w3m-pop-up-frames' specifies whether to pop up a new
土> frame, however, it will be ignored (treated as nil) when this command
土> is called non-interactively."
土> - (interactive (let ((arg (and current-prefix-arg (w3m-alive-p))))
土> - (list (unless arg
土> - (w3m-input-url))
土> - arg)))
土> + (interactive
土> + (let ((default (when (w3m-alive-p) 'popup)))
土> + (list (unless (and current-prefix-arg default)
土> + (w3m-input-url nil nil default))
土> + default)))
は間違いで、以下で意図したように動くようになります。
要は、w3m が起動済みの時に M-x w3m RET C-k RET という操作で、単に
popup するようにしたかったわけです。
@@ -3973,10 +3978,11 @@
The value of `w3m-pop-up-frames' specifies whether to pop up a new
frame, however, it will be ignored (treated as nil) when this command
is called non-interactively."
- (interactive (let ((arg (and current-prefix-arg (w3m-alive-p))))
- (list (unless arg
- (w3m-input-url))
- arg)))
+ (interactive
+ (let* ((default (when (w3m-alive-p) 'popup))
+ (url (unless (and current-prefix-arg default)
+ (w3m-input-url nil nil default))))
+ (list url (eq url 'popup))))
(let ((buffer (w3m-alive-p))
(focusing-function
(append '(lambda (frame)
--
土屋 雅稔 ( TSUCHIYA Masatoshi )