[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
highlighting tab or w3m-current-url
- From: Masatake YAMATO <jet@xxxxxxxx>
- Date: Wed, 08 Jun 2005 22:34:42 +0900 (JST)
- X-ml-name: emacs-w3m
- X-mail-count: 08155
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)