diff options
| author | Masatake YAMATO <jet@gyve.org> | 2005-05-23 11:19:17 +0000 |
|---|---|---|
| committer | Masatake YAMATO <jet@gyve.org> | 2005-05-23 11:19:17 +0000 |
| commit | 359e4563cad1b8add855a43ef77b7bb5cb3f9f1d (patch) | |
| tree | 2267264238ad326625994c395e647b70328d8a8b /lisp/ruler-mode.el | |
| parent | a4632380faae651c8cbf322dc90d81aab1e01688 (diff) | |
| download | emacs-359e4563cad1b8add855a43ef77b7bb5cb3f9f1d.tar.gz | |
Supprot mouse-face on mode-line.
2005-05-23 Masatake YAMATO <jet@gyve.org>
* xdisp.c (note_mode_line_or_margin_highlight): Added code
for mouse-face. Change the type of the first argument from `window'
to `List_Object'.
(note_mouse_highlight): Call note_mode_line_or_margin_highlight with
window instead of w.
2005-05-23 Masatake YAMATO <jet@gyve.org>
* bindings.el (mode-line-major-mode-keymap): Bind
[mode-line down-mouse-1] to `mouse-major-mode-menu'.
* faces.el (mode-line-highlight): New face.
* ruler-mode.el (ruler-mode-ruler): Use mode-line-highlight
as mouse-face.
* bindings.el (top-level, help-echo, mode-line-modified)
(mode-line-mule-info, mode-line-eol-desc): Use mode-line-highlight
as mouse-face.
Diffstat (limited to 'lisp/ruler-mode.el')
| -rw-r--r-- | lisp/ruler-mode.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el index 928b5baabec..46a28ce5069 100644 --- a/lisp/ruler-mode.el +++ b/lisp/ruler-mode.el @@ -697,6 +697,9 @@ Optional argument PROPS specifies other text properties to apply." (put-text-property i (1+ i) 'face 'ruler-mode-goal-column-face ruler) + (put-text-property + i (1+ i) 'mouse-face 'mode-line-highlight + ruler) (put-text-property i (1+ i) 'help-echo ruler-mode-goal-column-help-echo ruler)) @@ -706,6 +709,9 @@ Optional argument PROPS specifies other text properties to apply." (put-text-property i (1+ i) 'face 'ruler-mode-comment-column-face ruler) + (put-text-property + i (1+ i) 'mouse-face 'mode-line-highlight + ruler) (put-text-property i (1+ i) 'help-echo ruler-mode-comment-column-help-echo ruler)) @@ -715,6 +721,9 @@ Optional argument PROPS specifies other text properties to apply." (put-text-property i (1+ i) 'face 'ruler-mode-fill-column-face ruler) + (put-text-property + i (1+ i) 'mouse-face 'mode-line-highlight + ruler) (put-text-property i (1+ i) 'help-echo ruler-mode-fill-column-help-echo ruler)) |