diff options
| author | Juri Linkov <juri@jurta.org> | 2008-03-21 23:59:04 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2008-03-21 23:59:04 +0000 |
| commit | b7fd8c465fe49e61ae228548c7abb4b6616135cf (patch) | |
| tree | a204c69b65585af9b749a25e3da31b3590a855dc /lisp/bindings.el | |
| parent | c59a65bdacba84581a6bbc8c6b5615ad717d55fb (diff) | |
| download | emacs-b7fd8c465fe49e61ae228548c7abb4b6616135cf.tar.gz | |
(standard-mode-line-modes): Put special help-echo
tooltip on recursive edit %[ %] mode-line constructs.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 4b40a00f4f5..2742e2e4d16 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -345,7 +345,8 @@ mouse-3: Remove current window from display") (propertize "-%-" 'help-echo help-echo))) (standard-mode-line-modes (list - (propertize "%[(" 'help-echo help-echo) + (propertize "%[" 'help-echo "Recursive edit, type C-M-c to get out") + (propertize "(" 'help-echo help-echo) `(:propertize ("" mode-name) help-echo "Major mode\n\ mouse-1: Display major mode menu\n\ @@ -365,7 +366,9 @@ mouse-3: Toggle minor modes" 'mouse-face 'mode-line-highlight 'local-map (make-mode-line-mouse-map 'mouse-2 #'mode-line-widen)) - (propertize ")%]--" 'help-echo help-echo))) + (propertize ")" 'help-echo help-echo) + (propertize "%]" 'help-echo "Recursive edit, type C-M-c to get out") + (propertize "--" 'help-echo help-echo))) (standard-mode-line-position `((-3 ,(propertize |