Lines Matching +defs:minor +defs:mode
50 (defun make-mode-line-mouse-map (mouse function) "\
51 Return a keymap with single entry for mouse key MOUSE on the mode line.
53 corresponding to the mode line clicked."
55 (define-key map (vector 'mode-line mouse) function)
59 (defun mode-line-toggle-read-only (event)
60 "Like `toggle-read-only', for the mode-line."
65 (force-mode-line-update)))
68 (defun mode-line-toggle-modified (event)
69 "Toggle the buffer-modified flag from the mode-line."
74 (force-mode-line-update)))
77 (defun mode-line-widen (event)
78 "Widen a buffer from the mode-line."
83 (force-mode-line-update)))
86 (defun mode-line-abbrev-mode (event)
87 "Turn off `abbrev-mode' from the mode-line."
91 (abbrev-mode)
92 (force-mode-line-update)))
95 (defun mode-line-auto-fill-mode (event)
96 "Turn off `auto-fill-mode' from the mode-line."
100 (auto-fill-mode)
101 (force-mode-line-update)))
104 (defvar mode-line-input-method-map
106 (define-key map [mode-line mouse-2]
113 (force-mode-line-update))))
114 (define-key map [mode-line mouse-3]
124 (defvar mode-line-coding-system-map
126 (define-key map [mode-line mouse-1]
135 "Local keymap for the coding-system part of the mode line.")
138 (defun mode-line-change-eol (event)
147 (defvar mode-line-eol-desc-cache nil)
149 (defun mode-line-eol-desc ()
152 (desc (assq eol mode-line-eol-desc-cache)))
155 (if desc (setq mode-line-eol-desc-cache nil)) ;Flush the cache if stale.
167 (define-key map [mode-line mouse-1] 'mode-line-change-eol)
169 'mouse-face 'mode-line-highlight))
170 (push (cons eol (cons mnemonic desc)) mode-line-eol-desc-cache)
173 (defvar mode-line-mule-info
181 local-map ,mode-line-input-method-map
182 mouse-face mode-line-highlight))
196 'mouse-face 'mode-line-highlight
197 'local-map mode-line-coding-system-map)
198 (:eval (mode-line-eol-desc)))
210 (make-variable-buffer-local 'mode-line-mule-info)
212 (defvar mode-line-frame-identification '("-%F ")
215 (defvar mode-line-process nil "\
219 (make-variable-buffer-local 'mode-line-process)
221 (defvar mode-line-modified
231 'local-map (purecopy (make-mode-line-mouse-map
233 #'mode-line-toggle-read-only))
234 'mouse-face 'mode-line-highlight)
244 'local-map (purecopy (make-mode-line-mouse-map
245 'mouse-1 #'mode-line-toggle-modified))
246 'mouse-face 'mode-line-highlight))
249 (make-variable-buffer-local 'mode-line-modified)
252 (defvar mode-line-position nil
257 (defvar mode-line-modes nil
258 "Mode-line control for displaying major and minor modes.")
260 (defvar mode-line-major-mode-keymap
262 (define-key map [mode-line down-mouse-1] 'mouse-major-mode-menu)
263 (define-key map [mode-line mouse-2] 'describe-mode)
264 (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1)
266 Keymap to display on major mode.")
268 (defvar mode-line-minor-mode-keymap
270 (define-key map [mode-line mouse-2] 'mode-line-minor-mode-help)
271 (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1)
272 (define-key map [header-line down-mouse-3] 'mode-line-mode-menu-1)
274 Keymap to display on minor modes.")
278 ;; bottom mode line... Better ideas?
284 (standard-mode-line-format
288 'mode-line-mule-info
289 'mode-line-modified
290 'mode-line-frame-identification
291 'mode-line-buffer-identification
293 'mode-line-position
294 '(vc-mode vc-mode)
296 'mode-line-modes
297 `(which-func-mode ("" which-func-format ,dashes))
298 `(global-mode-string (,dashes global-mode-string))
300 (standard-mode-line-modes
303 `(:propertize ("" mode-name)
304 help-echo "mouse-1: major mode, mouse-2: major mode help, mouse-3: toggle minor modes"
305 mouse-face mode-line-highlight
306 local-map ,mode-line-major-mode-keymap)
307 '("" mode-line-process)
308 `(:propertize ("" minor-mode-alist)
309 mouse-face mode-line-highlight
310 help-echo "mouse-2: minor mode help, mouse-3: toggle minor modes"
311 local-map ,mode-line-minor-mode-keymap)
313 'mouse-face 'mode-line-highlight
314 'local-map (make-mode-line-mouse-map
315 'mouse-2 #'mode-line-widen))
317 (standard-mode-line-position
319 (size-indication-mode
321 (line-number-mode
322 ((column-number-mode
325 ((column-number-mode
328 (setq-default mode-line-format standard-mode-line-format)
329 (put 'mode-line-format 'standard-value
330 (list `(quote ,standard-mode-line-format)))
332 (setq-default mode-line-modes standard-mode-line-modes)
333 (put 'mode-line-modes 'standard-value
334 (list `(quote ,standard-mode-line-modes)))
336 (setq-default mode-line-position standard-mode-line-position)
337 (put 'mode-line-position 'standard-value
338 (list `(quote ,standard-mode-line-position))))
340 (defvar mode-line-buffer-identification-keymap
342 ;; of the mode line.or header line.
346 (define-key map [mode-line mouse-1] 'mode-line-previous-buffer)
348 (define-key map [header-line mouse-1] 'mode-line-previous-buffer)
349 (define-key map [mode-line mouse-3] 'mode-line-next-buffer)
351 (define-key map [header-line mouse-3] 'mode-line-next-buffer)
353 Keymap for what is displayed by `mode-line-buffer-identification'.")
356 "Return a list suitable for `mode-line-buffer-identification'.
360 'face 'mode-line-buffer-id
363 'mouse-face 'mode-line-highlight
364 'local-map mode-line-buffer-identification-keymap)))
366 (defvar mode-line-buffer-identification (propertized-buffer-identification "%12b") "\
372 (make-variable-buffer-local 'mode-line-buffer-identification)
379 (defun mode-line-unbury-buffer (event) "\
386 (defun mode-line-bury-buffer (event) "\
393 (defun mode-line-other-buffer () "\
398 (defun mode-line-next-buffer (event)
405 (defun mode-line-previous-buffer (event)
412 (defvar mode-line-mode-menu (make-sparse-keymap "Minor Modes") "\
413 Menu of mode operations in the mode line.")
415 (defun mode-line-mode-menu-1 (event)
419 (let* ((selection (mode-line-mode-menu event))
420 (binding (and selection (lookup-key mode-line-mode-menu
429 ;; Use mode-line-mode-menu for local minor-modes only.
431 (define-key mode-line-mode-menu [overwrite-mode]
432 `(menu-item ,(purecopy "Overwrite (Ovwrt)") overwrite-mode
433 :button (:toggle . overwrite-mode)))
434 (define-key mode-line-mode-menu [outline-minor-mode]
435 `(menu-item ,(purecopy "Outline (Outl)") outline-minor-mode
436 :button (:toggle . (bound-and-true-p outline-minor-mode))))
437 (define-key mode-line-mode-menu [highlight-changes-mode]
438 `(menu-item ,(purecopy "Highlight changes (Chg)") highlight-changes-mode
439 :button (:toggle . (bound-and-true-p highlight-changes-mode))))
440 (define-key mode-line-mode-menu [hide-ifdef-mode]
441 `(menu-item ,(purecopy "Hide ifdef (Ifdef)") hide-ifdef-mode
442 :button (:toggle . (bound-and-true-p hide-ifdef-mode))))
443 (define-key mode-line-mode-menu [glasses-mode]
444 `(menu-item ,(purecopy "Glasses (o^o)") glasses-mode
445 :button (:toggle . (bound-and-true-p glasses-mode))))
446 (define-key mode-line-mode-menu [font-lock-mode]
447 `(menu-item ,(purecopy "Font Lock") font-lock-mode
448 :button (:toggle . font-lock-mode)))
449 (define-key mode-line-mode-menu [flyspell-mode]
450 `(menu-item ,(purecopy "Flyspell (Fly)") flyspell-mode
451 :button (:toggle . (bound-and-true-p flyspell-mode))))
452 (define-key mode-line-mode-menu [auto-revert-tail-mode]
453 `(menu-item ,(purecopy "Auto revert tail (Tail)") auto-revert-tail-mode
455 :button (:toggle . (bound-and-true-p auto-revert-tail-mode))))
456 (define-key mode-line-mode-menu [auto-revert-mode]
457 `(menu-item ,(purecopy "Auto revert (ARev)") auto-revert-mode
458 :button (:toggle . (bound-and-true-p auto-revert-mode))))
459 (define-key mode-line-mode-menu [auto-fill-mode]
460 `(menu-item ,(purecopy "Auto fill (Fill)") auto-fill-mode
462 (define-key mode-line-mode-menu [abbrev-mode]
463 `(menu-item ,(purecopy "Abbrev (Abbrev)") abbrev-mode
464 :button (:toggle . abbrev-mode)))
466 (defun mode-line-mode-menu (event)
468 (x-popup-menu event mode-line-mode-menu))
470 (defun mode-line-minor-mode-help (event)
471 "Describe minor mode for EVENT occurred on minor modes area of the mode line."
474 (describe-minor-mode-from-indicator indicator)))
476 (defvar minor-mode-alist nil "\
477 Alist saying how to show minor modes in the mode line.
479 STRING is included in the mode line iff VARIABLE's value is non-nil.
481 Actually, STRING need not be a string; any possible mode-line element
482 is okay. See `mode-line-format'.")
484 (setq minor-mode-alist
486 (list 'abbrev-mode " Abbrev")
487 '(overwrite-mode overwrite-mode)
489 ;; not really a minor mode...
568 (make-variable-buffer-local 'indent-tabs-mode)
610 (make-variable-buffer-local 'minor-mode-overriding-map-alist)
779 (define-key global-map [insert] 'overwrite-mode)
784 (define-key global-map [insertchar] 'overwrite-mode)
937 (defalias 'mode-specific-command-prefix (make-sparse-keymap))
938 (defvar mode-specific-map (symbol-function 'mode-specific-command-prefix)
940 (define-key global-map "\C-c" 'mode-specific-command-prefix)
1038 (define-key ctl-x-map "al" 'add-mode-abbrev)
1039 (define-key ctl-x-map "a\C-a" 'add-mode-abbrev)
1041 (define-key ctl-x-map "a+" 'add-mode-abbrev)
1043 (define-key ctl-x-map "ail" 'inverse-add-mode-abbrev)
1048 ;; (define-key ctl-x-map "\C-a" 'add-mode-abbrev)
1050 ;; (define-key ctl-x-map "\C-h" 'inverse-add-mode-abbrev)