Variable: mode-line-modes

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

Value

Large value
((compilation-in-progress
  #("[Compiling] " 0 12
    (help-echo "Compiling; mouse-2: Goto Buffer" mouse-face
	       mode-line-highlight local-map
	       (keymap
		(mode-line keymap
			   (mouse-2
			    . compilation-goto-in-progress-buffer))))))
 #("%[" 0 2 (help-echo "Recursive edit, type C-M-c to get out"))
 (:eval (car mode-line-modes-delimiters))
 (: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))
					 (completion-preview-mode
					  menu-item
					  "Completion Preview (CP)"
					  completion-preview-mode
					  :help
					  "Show preview of completion suggestions as you type"
					  :enable
					  completion-at-point-functions
					  :button
					  (:toggle bound-and-true-p
						   completion-preview-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
					      ("bindings.elc" . 19090)]))))
 ("" mode-line-process)
 #("%n" 0 2
   (help-echo "mouse-2: Remove narrowing from buffer" mouse-face
	      mode-line-highlight local-map
	      (keymap (mode-line keymap (mouse-2 . mode-line-widen)))))
 ("" mode-line-minor-modes) (:eval (cdr mode-line-modes-delimiters))
 #("%]" 0 2 (help-echo "Recursive edit, type C-M-c to get out")) " ")

Documentation

Mode line construct for displaying major and minor modes.

View in manual

Source Code

;; Defined in /usr/src/emacs/lisp/bindings.el.gz
(defvar mode-line-modes
  (let ((recursive-edit-help-echo
         "Recursive edit, type C-M-c to get out"))
    (list (propertize "%[" 'help-echo recursive-edit-help-echo)
          '(:eval (car mode-line-modes-delimiters))
	  `(: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 "%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))
	  '("" mode-line-minor-modes)
          '(:eval (cdr mode-line-modes-delimiters))
	  (propertize "%]" 'help-echo recursive-edit-help-echo)
	  " "))
  "Mode line construct for displaying major and minor modes.")