[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: shimbunの Inlne画像を外部ビューア ーで見るには?



>>>>> In [emacs-w3m : No.07508] 野宮 賢さん wrote:

> どうすれば、外部ビューアーでの表示、となるのでしょうか?

画像がある場所で、M-x w3m-view-image RET でいけます。
でも、ちょっと不便ですかねえ。Emacs 20 では BITMAP-MULE を消して
しまえば、などと言うのは乱暴だし。

画像がある場所で、単に RET だと画像のインライン表示の切り替え。
接頭引数 (`C-u'、`M-1'、`ESC 1' など) を付けて RET を叩くと外部
表示というのも考えたんですが、w3m-safe-view-this-url (すなわち
shimbun 記事上での RET) と w3m-view-this-url が整合しなくなって
しまうので躊躇しています。

いちおうパッチを付けますが、うーん、やっぱり美しくないなあ...。

--- w3m.el~	2005-01-31 02:15:22 +0000
+++ w3m.el	2005-02-01 07:15:45 +0000
@@ -8365,7 +8365,7 @@
 A function set to this variable must accept an URL, and must return
 non-nil when an article pointed by the URL is found.")
 
-(defun w3m-safe-view-this-url ()
+(defun w3m-safe-view-this-url (&optional arg)
   "View the URL of the link under point.
 This command is quite similar to `w3m-view-this-url' without three
 differences: (1) this command accepts no arguments, (2) this command
@@ -8381,7 +8381,7 @@
 This command makes a new emacs-w3m buffer if `w3m-make-new-session' is
 non-nil and a user invokes this command in a buffer not being running
 the `w3m-mode', otherwise use an existing emacs-w3m buffer."
-  (interactive)
+  (interactive "P")
   (let ((w3m-pop-up-windows nil)
 	(url (w3m-url-valid (w3m-anchor))))
     (cond
@@ -8392,7 +8392,8 @@
 		  (w3m-goto-url-new-session url)
 		(w3m-goto-url url))))
      ((w3m-url-valid (w3m-image))
-      (if (w3m-display-graphic-p)
+      (if (and (not arg)
+	       (w3m-display-graphic-p))
 	  (w3m-toggle-inline-image)
 	(w3m-view-image)))
      (t (w3m-message "No URL at point")))))