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