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

highlighting tab or w3m-current-url



CVS中のGNU Emacsにてmode-lineとheader-lineのmouse-faceが機能するよう
になりました。そこでemacs-w3mのtab(あるいはcurrent-url行)をマウス
に反応するようにしてみました。

えー、mode-lineについては...iconに関しはうまくいかないようです。


Index: w3m-e23.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m-e23.el,v
retrieving revision 1.2
diff -u -r1.2 w3m-e23.el
--- w3m-e23.el	23 Mar 2005 23:38:39 -0000	1.2
+++ w3m-e23.el	8 Jun 2005 13:29:08 -0000
@@ -425,6 +425,7 @@
 		       (replace-regexp-in-string "%" "%%" w3m-current-url)
 		     "")
 		   'face 'w3m-header-line-location-content-face
+		   'mouse-face 'mode-line-highlight
 		   'local-map (let ((map (make-sparse-keymap)))
 				(define-key map [header-line mouse-2]
 				  'w3m-goto-url)
@@ -618,6 +619,7 @@
 		    breadth nil ?.)
 		 (truncate-string-to-width title breadth nil ?\ ))))
 	     'face face
+	     'mouse-face 'mode-line-highlight
 	     'local-map keymap
 	     'help-echo title)
 	    w3m-tab-separator)