w3m-toggle-inline-image

[Naohiro Aota <nao.aota@xxxxxxxxx>]

青田です。

画像まわりに関して二つ提案があります。

一つは transient-mark-mode が有効な時に "T" で表示する画像を mark されて
いる region 内に限ることです。 画像が多くあるページで一部だけを見てみたい
時にあると便利だと思います。これは "t" のほうがいいかなとも、 両方に導入
したほうがいいかなとも思っています。

もう一つは、 w3m-ignored-image-url-regexp という変数を導入してこれにマッ
チした画像は、 w3m-display-inline-images が non-nil でも表示しないように
することです。  w3m-filter と機能がかぶりそうですが、ロゴなどの普段は見な
くていいけれど見たくなったらすぐ見たいようなものや、フィルタでマッチさせ
るのが難しいものに使えると思います。

Index: w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.1344
diff -u -r1.1344 w3m.el
--- w3m.el	20 Feb 2008 08:08:23 -0000	1.1344
+++ w3m.el	29 Feb 2008 05:27:03 -0000
@@ -3602,6 +3602,8 @@
 	    (unless (setq w3m-display-inline-images (not status))
 	      (w3m-process-stop (current-buffer))))
 	  (force-mode-line-update))
+      (when (w3m-region-active-p)
+	(narrow-to-region (region-beginning) (region-end)))
       (when (setq safe-regexp (get-text-property (point) 'w3m-safe-url-regexp))
 	;; Scan the buffer for searching for an insecure image url.
 	(setq pos (point-min))
@@ -3628,6 +3630,7 @@
 	  (progn
 	    (unwind-protect
 		(w3m-toggle-inline-images-internal 'off no-cache nil)
+	      (widen)
 	      (setq w3m-display-inline-images t))
 	    (force-mode-line-update))
 	(w3m-message "There are some images considered unsafe;\

--- w3m.el	20 Feb 2008 08:08:23 -0000	1.1344
+++ w3m.el	29 Feb 2008 05:58:02 -0000
@@ -2101,6 +2101,11 @@
   :group 'w3m
   :type '(choice (string :tag "Format") function))
 
+(defcustom w3m-ignored-image-url-regexp nil
+  "*Regexp matching urls which aren't displayed even if `w3m-display-inline-images' is non-nil."
+  :group 'w3m
+  :type '(regexp :format "URL: %v\n" :size 0))
+
 (defvar w3m-modeline-process-status-on "<PRC>"
   "Modeline control for displaying the status when the process is running.
 The value will be modified for displaying the graphic icon.")
@@ -3476,7 +3481,10 @@
 			  (point-max))
 		  iurl (w3m-image start)
 		  size (get-text-property start 'w3m-image-size))
-	    (when (and (or (not url)
+	    (when (and (or (and (not url)
+				(or (not w3m-ignored-image-url-regexp)
+				    (string-match w3m-ignored-image-url-regexp
+						  iurl)))
 			   ;; URL is specified and is same as the image URL.
 			   (string= url iurl))
 		       (not (eq (get-text-property start 'w3m-image-status)