comparison lisp/bindings.el @ 93161:e3b492a971e1

(standard-mode-line-modes): Avoid duplicating a string.

93160:22d835ffa8f7

	;; mouse-1: select window, mouse-2: delete others, mouse-3: delete,
	;; drag-mouse-1: resize, C-mouse-2: split horizontally"
	"mouse-1: Select (drag to resize)\n\
mouse-2: Make current window occupy the whole frame\n\
mouse-3: Remove current window from display")
       (dashes (propertize "--" 'help-echo help-echo))
       (standard-mode-line-format
	(list
	 "%e"
	 (propertize "-" 'help-echo help-echo)

	 `(which-func-mode ("" which-func-format ,dashes))
	 `(global-mode-string (,dashes global-mode-string))
	 (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\
mouse-2: Show help for major mode\n\

	 (propertize "%n" 'help-echo "mouse-2: Remove narrowing from the current buffer"
		     '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
		"%p"

93161:e3b492a971e1

	;; mouse-1: select window, mouse-2: delete others, mouse-3: delete,
	;; drag-mouse-1: resize, C-mouse-2: split horizontally"
	"mouse-1: Select (drag to resize)\n\
mouse-2: Make current window occupy the whole frame\n\
mouse-3: Remove current window from display")
       (recursive-edit-help-echo "Recursive edit, type C-M-c to get out")
       (dashes (propertize "--" 'help-echo help-echo))
       (standard-mode-line-format
	(list
	 "%e"
	 (propertize "-" 'help-echo help-echo)

	 `(which-func-mode ("" which-func-format ,dashes))
	 `(global-mode-string (,dashes global-mode-string))
	 (propertize "-%-" 'help-echo help-echo)))
       (standard-mode-line-modes
	(list
	 (propertize "%[" 'help-echo recursive-edit-help-echo)
	 (propertize "(" 'help-echo help-echo)
	 `(:propertize ("" mode-name)
		       help-echo "Major mode\n\
mouse-1: Display major mode menu\n\
mouse-2: Show help for major mode\n\

	 (propertize "%n" 'help-echo "mouse-2: Remove narrowing from the current buffer"
		     '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-help-echo)
	 (propertize "--" 'help-echo help-echo)))

       (standard-mode-line-position
	`((-3 ,(propertize
		"%p"