diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/cmuscheme.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 6 | ||||
| -rw-r--r-- | lisp/woman.el | 2 |
3 files changed, 7 insertions, 3 deletions
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index f41f2bf7027..772891d5d31 100644 --- a/lisp/cmuscheme.el +++ b/lisp/cmuscheme.el @@ -132,7 +132,7 @@ (define-key scheme-mode-map "\C-c\C-l" 'scheme-load-file) (define-key scheme-mode-map "\C-c\C-k" 'scheme-compile-file) ;k for "kompile" -(let ((map (lookup-key scheme-mode-map [menu-bar Scheme]))) +(let ((map (lookup-key scheme-mode-map [menu-bar scheme]))) (define-key map [separator-eval] '("--")) (define-key map [compile-file] '("Compile Scheme File" . scheme-compile-file)) diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index faa69241f9f..d3c3d5e65f1 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -190,7 +190,11 @@ This is expected to be bound to a mouse event." (function-put symbol 'completion-predicate #'ignore)) (dolist (map (if (keymapp maps) (list maps) maps)) (define-key map - (vector 'menu-bar (easy-menu-intern (car menu))) + (vector 'menu-bar (if (symbolp (car menu)) + (car menu) + ;; If a string, then use the downcased + ;; version for greater backwards compatibiltiy. + (intern (downcase (car menu))))) (easy-menu-binding keymap (car menu)))))) (defun easy-menu-filter-return (menu &optional name) diff --git a/lisp/woman.el b/lisp/woman.el index 0a9f3665eb6..d4f7e8c0db7 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -1523,7 +1523,7 @@ Also make each path-info component into a list. (mapc 'woman-dired-define-key woman-dired-keys) (woman-dired-define-key-maybe "w") (woman-dired-define-key-maybe "W"))) - (define-key-after (lookup-key dired-mode-map [menu-bar Immediate]) + (define-key-after (lookup-key dired-mode-map [menu-bar immediate]) [woman] '("Read Man Page (WoMan)" . woman-dired-find-file) 'view)) (if (featurep 'dired) |