Variable: mode-line-modes

mode-line-modes is a variable defined in bindings.el.gz.

Value

Large value
((compilation-in-progress
  #("[Compiling] " 0 12
    (local-map
     (keymap
      (mode-line keymap
		 (mouse-2 . compilation-goto-in-progress-buffer)))
     mouse-face mode-line-highlight help-echo "Compiling; mouse-2: Goto Buffer")))
 #("%[" 0 2
   (help-echo "Recursive edit, type M-C-c to get out"))
 "("
 (:propertize
  ("" mode-name)
  help-echo "Major mode\nmouse-1: Display major mode menu\nmouse-2: Show help for major mode\nmouse-3: Toggle minor modes" mouse-face mode-line-highlight local-map
  (keymap
   (mode-line keymap
	      (down-mouse-3 menu-item "Minor Modes"
			    (keymap
			     (orgtbl-mode menu-item "Org Table Mode" orgtbl-mode :button
					  (:toggle . orgtbl-mode))
			     (reftex-mode menu-item "RefTeX Mode" reftex-mode :button
					  (:toggle . reftex-mode))
			     (ruler-mode menu-item "Ruler" ruler-mode :button
					 (:toggle . ruler-mode))
			     (abbrev-mode menu-item "Abbrev (Abbrev)" abbrev-mode :help "Automatically expand abbreviations" :button
					  (:toggle . abbrev-mode))
			     (auto-fill-mode menu-item "Auto fill (Fill)" auto-fill-mode :help "Automatically insert new lines" :button
					     (:toggle . auto-fill-function))
			     (auto-revert-mode menu-item "Auto revert (ARev)" auto-revert-mode :help "Revert the buffer when the file on disk changes" :button
					       (:toggle bound-and-true-p auto-revert-mode))
			     (auto-revert-tail-mode menu-item "Auto revert tail (Tail)" auto-revert-tail-mode :help "Revert the tail of the buffer when the file on disk grows" :enable
						    (buffer-file-name)
						    :button
						    (:toggle bound-and-true-p auto-revert-tail-mode))
			     (flyspell-mode menu-item "Flyspell (Fly)" flyspell-mode :help "Spell checking on the fly" :button
					    (:toggle bound-and-true-p flyspell-mode))
			     (font-lock-mode menu-item "Font Lock" font-lock-mode :help "Syntax coloring" :button
					     (:toggle . font-lock-mode))
			     (glasses-mode menu-item "Glasses (o^o)" glasses-mode :help "Insert virtual separators to make long identifiers easy to read" :button
					   (:toggle bound-and-true-p glasses-mode))
			     (hide-ifdef-mode menu-item "Hide ifdef (Ifdef)" hide-ifdef-mode :help "Show/Hide code within #ifdef constructs" :button
					      (:toggle bound-and-true-p hide-ifdef-mode))
			     (highlight-changes-mode menu-item "Highlight changes (Chg)" highlight-changes-mode :help "Show changes in the buffer in a distinctive color" :button
						     (:toggle bound-and-true-p highlight-changes-mode))
			     (outline-minor-mode menu-item "Outline (Outl)" outline-minor-mode :help "" :button
						 (:toggle bound-and-true-p outline-minor-mode))
			     (overwrite-mode menu-item "Overwrite (Ovwrt)" overwrite-mode :help "Overwrite mode: typed characters replace existing text" :button
					     (:toggle . overwrite-mode))
			     "Minor Modes")
			    :filter bindings--sort-menu-keymap)
	      (mouse-2 . describe-mode)
	      (down-mouse-1 menu-item "Menu Bar" ignore :filter
			    #[257 "\300 \207"
				  [mouse-menu-major-mode-map]
				  2 "\n\n(fn _)"]))))
 ("" mode-line-process)
 (:propertize
  ("" minor-mode-alist)
  mouse-face mode-line-highlight help-echo "Minor mode\nmouse-1: Display minor mode menu\nmouse-2: Show help for minor mode\nmouse-3: Toggle minor modes" local-map
  (keymap
   (header-line keymap
		(down-mouse-3 menu-item "Menu Bar"
			      (keymap
			       (orgtbl-mode menu-item "Org Table Mode" orgtbl-mode :button
					    (:toggle . orgtbl-mode))
			       (reftex-mode menu-item "RefTeX Mode" reftex-mode :button
					    (:toggle . reftex-mode))
			       (ruler-mode menu-item "Ruler" ruler-mode :button
					   (:toggle . ruler-mode))
			       (abbrev-mode menu-item "Abbrev (Abbrev)" abbrev-mode :help "Automatically expand abbreviations" :button
					    (:toggle . abbrev-mode))
			       (auto-fill-mode menu-item "Auto fill (Fill)" auto-fill-mode :help "Automatically insert new lines" :button
					       (:toggle . auto-fill-function))
			       (auto-revert-mode menu-item "Auto revert (ARev)" auto-revert-mode :help "Revert the buffer when the file on disk changes" :button
						 (:toggle bound-and-true-p auto-revert-mode))
			       (auto-revert-tail-mode menu-item "Auto revert tail (Tail)" auto-revert-tail-mode :help "Revert the tail of the buffer when the file on disk grows" :enable
						      (buffer-file-name)
						      :button
						      (:toggle bound-and-true-p auto-revert-tail-mode))
			       (flyspell-mode menu-item "Flyspell (Fly)" flyspell-mode :help "Spell checking on the fly" :button
					      (:toggle bound-and-true-p flyspell-mode))
			       (font-lock-mode menu-item "Font Lock" font-lock-mode :help "Syntax coloring" :button
					       (:toggle . font-lock-mode))
			       (glasses-mode menu-item "Glasses (o^o)" glasses-mode :help "Insert virtual separators to make long identifiers easy to read" :button
					     (:toggle bound-and-true-p glasses-mode))
			       (hide-ifdef-mode menu-item "Hide ifdef (Ifdef)" hide-ifdef-mode :help "Show/Hide code within #ifdef constructs" :button
						(:toggle bound-and-true-p hide-ifdef-mode))
			       (highlight-changes-mode menu-item "Highlight changes (Chg)" highlight-changes-mode :help "Show changes in the buffer in a distinctive color" :button
						       (:toggle bound-and-true-p highlight-changes-mode))
			       (outline-minor-mode menu-item "Outline (Outl)" outline-minor-mode :help "" :button
						   (:toggle bound-and-true-p outline-minor-mode))
			       (overwrite-mode menu-item "Overwrite (Ovwrt)" overwrite-mode :help "Overwrite mode: typed characters replace existing text" :button
					       (:toggle . overwrite-mode))
			       "Minor Modes")
			      :filter bindings--sort-menu-keymap))
   (mode-line keymap
	      (down-mouse-3 menu-item "Menu Bar"
			    (keymap
			     (orgtbl-mode menu-item "Org Table Mode" orgtbl-mode :button
					  (:toggle . orgtbl-mode))
			     (reftex-mode menu-item "RefTeX Mode" reftex-mode :button
					  (:toggle . reftex-mode))
			     (ruler-mode menu-item "Ruler" ruler-mode :button
					 (:toggle . ruler-mode))
			     (abbrev-mode menu-item "Abbrev (Abbrev)" abbrev-mode :help "Automatically expand abbreviations" :button
					  (:toggle . abbrev-mode))
			     (auto-fill-mode menu-item "Auto fill (Fill)" auto-fill-mode :help "Automatically insert new lines" :button
					     (:toggle . auto-fill-function))
			     (auto-revert-mode menu-item "Auto revert (ARev)" auto-revert-mode :help "Revert the buffer when the file on disk changes" :button
					       (:toggle bound-and-true-p auto-revert-mode))
			     (auto-revert-tail-mode menu-item "Auto revert tail (Tail)" auto-revert-tail-mode :help "Revert the tail of the buffer when the file on disk grows" :enable
						    (buffer-file-name)
						    :button
						    (:toggle bound-and-true-p auto-revert-tail-mode))
			     (flyspell-mode menu-item "Flyspell (Fly)" flyspell-mode :help "Spell checking on the fly" :button
					    (:toggle bound-and-true-p flyspell-mode))
			     (font-lock-mode menu-item "Font Lock" font-lock-mode :help "Syntax coloring" :button
					     (:toggle . font-lock-mode))
			     (glasses-mode menu-item "Glasses (o^o)" glasses-mode :help "Insert virtual separators to make long identifiers easy to read" :button
					   (:toggle bound-and-true-p glasses-mode))
			     (hide-ifdef-mode menu-item "Hide ifdef (Ifdef)" hide-ifdef-mode :help "Show/Hide code within #ifdef constructs" :button
					      (:toggle bound-and-true-p hide-ifdef-mode))
			     (highlight-changes-mode menu-item "Highlight changes (Chg)" highlight-changes-mode :help "Show changes in the buffer in a distinctive color" :button
						     (:toggle bound-and-true-p highlight-changes-mode))
			     (outline-minor-mode menu-item "Outline (Outl)" outline-minor-mode :help "" :button
						 (:toggle bound-and-true-p outline-minor-mode))
			     (overwrite-mode menu-item "Overwrite (Ovwrt)" overwrite-mode :help "Overwrite mode: typed characters replace existing text" :button
					     (:toggle . overwrite-mode))
			     "Minor Modes")
			    :filter bindings--sort-menu-keymap)
	      (mouse-2 . mode-line-minor-mode-help)
	      (down-mouse-1 . mouse-minor-mode-menu))))
 #("%n" 0 2
   (local-map
    (keymap
     (mode-line keymap
		(mouse-2 . mode-line-widen)))
    mouse-face mode-line-highlight help-echo "mouse-2: Remove narrowing from buffer"))
 ")"
 #("%]" 0 2
   (help-echo "Recursive edit, type M-C-c to get out"))
 " ")

Documentation

Mode line construct for displaying major and minor modes.

Source Code

;; Defined in /usr/src/emacs/lisp/bindings.el.gz
(defvar mode-line-modes
  (let ((recursive-edit-help-echo
         "Recursive edit, type M-C-c to get out"))
    (list (propertize "%[" 'help-echo recursive-edit-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\
mouse-3: Toggle minor modes"
			mouse-face mode-line-highlight
			local-map ,mode-line-major-mode-keymap)
	  '("" mode-line-process)
	  `(:propertize ("" minor-mode-alist)
			mouse-face mode-line-highlight
			help-echo "Minor mode\n\
mouse-1: Display minor mode menu\n\
mouse-2: Show help for minor mode\n\
mouse-3: Toggle minor modes"
			local-map ,mode-line-minor-mode-keymap)
	  (propertize "%n" 'help-echo "mouse-2: Remove narrowing from buffer"
		      'mouse-face 'mode-line-highlight
		      'local-map (make-mode-line-mouse-map
				  'mouse-2 #'mode-line-widen))
	  ")"
	  (propertize "%]" 'help-echo recursive-edit-help-echo)
	  " "))
  "Mode line construct for displaying major and minor modes.")