From b7fd8c465fe49e61ae228548c7abb4b6616135cf Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 21 Mar 2008 23:59:04 +0000 Subject: [PATCH] (standard-mode-line-modes): Put special help-echo tooltip on recursive edit %[ %] mode-line constructs. --- lisp/bindings.el | 7 +++++-- 1 file 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 -- 2.39.2