aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Moellmann2000-12-07 13:22:12 +0000
committerGerd Moellmann2000-12-07 13:22:12 +0000
commit2a5405b6680afd509778c5dd132ad103dcb830e4 (patch)
tree924cc6cd8db1d273761f5b89f43706ee754b95d4
parent796ecd10483bdc4eda4da78053fb2216832e6d3f (diff)
downloademacs-2a5405b6680afd509778c5dd132ad103dcb830e4.tar.gz
emacs-2a5405b6680afd509778c5dd132ad103dcb830e4.zip
(mode-line-mode-menu): Reverse the order
of define-keys so that the menu appears in alphabetical order.
-rw-r--r--lisp/bindings.el60
1 files changed, 30 insertions, 30 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el
index 2deea04faec..d156360c772 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -310,39 +310,39 @@ Return a string to display in the mode line for the current mode name."
310 "Return the value of symbol VAR if it is bound, else nil." 310 "Return the value of symbol VAR if it is bound, else nil."
311 `(and (boundp (quote ,var)) ,var)) 311 `(and (boundp (quote ,var)) ,var))
312 312
313(define-key mode-line-mode-menu [abbrev-mode]
314 `(menu-item ,(purecopy "Abbrev") abbrev-mode
315 :button (:toggle . abbrev-mode)))
316(define-key mode-line-mode-menu [auto-revert-mode]
317 `(menu-item ,(purecopy "Auto revert") auto-revert-mode
318 :button (:toggle . auto-revert-mode)))
319(define-key mode-line-mode-menu [auto-fill-mode]
320 `(menu-item ,(purecopy "Auto-fill") auto-fill-mode
321 :button (:toggle . auto-fill-function)))
322(define-key mode-line-mode-menu [column-number-mode]
323 `(menu-item ,(purecopy "Column number") column-number-mode
324 :button (:toggle . column-number-mode)))
325(define-key mode-line-mode-menu [flyspell-mode]
326 `(menu-item ,(purecopy "Flyspell") flyspell-mode
327 :button (:toggle . (bound-and-true-p flyspell-mode))))
328(define-key mode-line-mode-menu [font-lock-mode]
329 `(menu-item ,(purecopy "Font-lock") font-lock-mode
330 :button (:toggle . font-lock-mode)))
331(define-key mode-line-mode-menu [hide-ifdef-mode]
332 `(menu-item ,(purecopy "Hide ifdef") hide-ifdef-mode
333 :button (:toggle . (bound-and-true-p hide-ifdef-mode))))
334(define-key mode-line-mode-menu [highlight-changes-mode]
335 `(menu-item ,(purecopy "Highlight changes") highlight-changes-mode
336 :button (:toggle . highlight-changes-mode)))
337(define-key mode-line-mode-menu [line-number-mode]
338 `(menu-item ,(purecopy "Line number") line-number-mode
339 :button (:toggle . line-number-mode)))
340(define-key mode-line-mode-menu [outline-minor-mode]
341 `(menu-item ,(purecopy "Outline") outline-minor-mode
342 :button (:toggle . (bound-and-true-p outline-minor-mode))))
343(define-key mode-line-mode-menu [overwrite-mode] 313(define-key mode-line-mode-menu [overwrite-mode]
344 `(menu-item ,(purecopy "Overwrite") overwrite-mode 314 `(menu-item ,(purecopy "Overwrite") overwrite-mode
345 :button (:toggle . overwrite-mode))) 315 :button (:toggle . overwrite-mode)))
316(define-key mode-line-mode-menu [outline-minor-mode]
317 `(menu-item ,(purecopy "Outline") outline-minor-mode
318 :button (:toggle . (bound-and-true-p outline-minor-mode))))
319(define-key mode-line-mode-menu [line-number-mode]
320 `(menu-item ,(purecopy "Line number") line-number-mode
321 :button (:toggle . line-number-mode)))
322(define-key mode-line-mode-menu [highlight-changes-mode]
323 `(menu-item ,(purecopy "Highlight changes") highlight-changes-mode
324 :button (:toggle . highlight-changes-mode)))
325(define-key mode-line-mode-menu [hide-ifdef-mode]
326 `(menu-item ,(purecopy "Hide ifdef") hide-ifdef-mode
327 :button (:toggle . (bound-and-true-p hide-ifdef-mode))))
328(define-key mode-line-mode-menu [font-lock-mode]
329 `(menu-item ,(purecopy "Font-lock") font-lock-mode
330 :button (:toggle . font-lock-mode)))
331(define-key mode-line-mode-menu [flyspell-mode]
332 `(menu-item ,(purecopy "Flyspell") flyspell-mode
333 :button (:toggle . (bound-and-true-p flyspell-mode))))
334(define-key mode-line-mode-menu [column-number-mode]
335 `(menu-item ,(purecopy "Column number") column-number-mode
336 :button (:toggle . column-number-mode)))
337(define-key mode-line-mode-menu [auto-fill-mode]
338 `(menu-item ,(purecopy "Auto-fill") auto-fill-mode
339 :button (:toggle . auto-fill-function)))
340(define-key mode-line-mode-menu [auto-revert-mode]
341 `(menu-item ,(purecopy "Auto revert") auto-revert-mode
342 :button (:toggle . auto-revert-mode)))
343(define-key mode-line-mode-menu [abbrev-mode]
344 `(menu-item ,(purecopy "Abbrev") abbrev-mode
345 :button (:toggle . abbrev-mode)))
346 346
347(defun mode-line-mode-menu (event) 347(defun mode-line-mode-menu (event)
348 (interactive "@e") 348 (interactive "@e")