diff options
| author | Gerd Moellmann | 2000-12-07 13:22:12 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-12-07 13:22:12 +0000 |
| commit | 2a5405b6680afd509778c5dd132ad103dcb830e4 (patch) | |
| tree | 924cc6cd8db1d273761f5b89f43706ee754b95d4 | |
| parent | 796ecd10483bdc4eda4da78053fb2216832e6d3f (diff) | |
| download | emacs-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.el | 60 |
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") |