Re: mode-line tooltips for "[" and "]" in recursive-edit

[Juri Linkov]

> It would be nice if [ and ] that appear in the mode-line in
> recursive-edit had a tooltip explaining what they are.  Such tooltips
> will be helpful for beginners.
>
> Can someone please add the tooltips?

This could be done with the following patch:

Index: lisp/bindings.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/bindings.el,v
retrieving revision 1.198
diff -c -r1.198 bindings.el
*** lisp/bindings.el    5 Mar 2008 04:09:24 -0000       1.198
--- lisp/bindings.el    20 Mar 2008 23:56:29 -0000
***************
*** 345,351 ****
         (propertize "-%-" 'help-echo help-echo)))
         (standard-mode-line-modes
        (list
!        (propertize "%[(" 'help-echo help-echo)
         `(:propertize ("" mode-name)
                       help-echo "Major mode\n\
  mouse-1: Display major mode menu\n\
--- 345,352 ----
         (propertize "-%-" 'help-echo help-echo)))
         (standard-mode-line-modes
        (list
!        (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,371 ****
                     'mouse-face 'mode-line-highlight
                     'local-map (make-mode-line-mouse-map
                                 'mouse-2 #'mode-line-widen))
!        (propertize ")%]--" 'help-echo help-echo)))
  
         (standard-mode-line-position
        `((-3 ,(propertize
--- 366,374 ----
                     '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 "Recursive edit, type C-M-c to get out")
!        (propertize "--" 'help-echo help-echo)))
  
         (standard-mode-line-position
        `((-3 ,(propertize

-- 
Juri Linkov
http://www.jurta.org/emacs/