diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-02-23 03:51:12 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-02-23 03:51:12 +0100 |
| commit | b03d9d2c13085b23cf50cbb651ea2c592fe3739d (patch) | |
| tree | 291b2f04f8ca4fa832a160c53f370201f6f86eb0 /lisp/wdired.el | |
| parent | 9202106a990d3e82d41ae831fd28419ab55f3cab (diff) | |
| download | emacs-b03d9d2c13085b23cf50cbb651ea2c592fe3739d.tar.gz emacs-b03d9d2c13085b23cf50cbb651ea2c592fe3739d.tar.bz2 emacs-b03d9d2c13085b23cf50cbb651ea2c592fe3739d.zip | |
Convert some more menus to easy-menu-define
* lisp/tar-mode.el (tar-mode-map):
* lisp/textmodes/sgml-mode.el (sgml-mode-map, html-mode-map):
* lisp/wdired.el (wdired-mode-map): Move menus from here...
* lisp/tar-mode.el (tar-mode-immediate-menu, tar-mode-mark-menu)
* lisp/textmodes/sgml-mode.el (sgml-mode-menu, html-mode-menu):
* lisp/wdired.el (wdired-mode-menu): ...to here, and convert to
easy-menu-define.
Diffstat (limited to 'lisp/wdired.el')
| -rw-r--r-- | lisp/wdired.el | 23 |
1 files changed, 9 insertions, 14 deletions
diff --git a/lisp/wdired.el b/lisp/wdired.el index 3829ff1f977..c495d8de341 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el @@ -176,26 +176,21 @@ nonexistent directory will fail." (define-key map "\C-p" 'wdired-previous-line) (define-key map [down] 'wdired-next-line) (define-key map "\C-n" 'wdired-next-line) - - (define-key map [menu-bar wdired] - (cons "WDired" (make-sparse-keymap "WDired"))) - (define-key map [menu-bar wdired wdired-customize] - '("Options" . wdired-customize)) - (define-key map [menu-bar wdired dashes] - '("--")) - (define-key map [menu-bar wdired wdired-abort-changes] - '(menu-item "Abort Changes" wdired-abort-changes - :help "Abort changes and return to dired mode")) - (define-key map [menu-bar wdired wdired-finish-edit] - '("Commit Changes" . wdired-finish-edit)) - (define-key map [remap upcase-word] 'wdired-upcase-word) (define-key map [remap capitalize-word] 'wdired-capitalize-word) (define-key map [remap downcase-word] 'wdired-downcase-word) - map) "Keymap used in `wdired-mode'.") +(easy-menu-define wdired-mode-menu wdired-mode-map + "Menu for `wdired-mode'." + '("WDired" + ["Commit Changes" wdired-finish-edit] + ["Abort Changes" wdired-abort-changes + :help "Abort changes and return to Dired mode"] + "---" + ["Options" wdired-customize])) + (defvar wdired-mode-hook nil "Hooks run when changing to WDired mode.") |