diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-22 06:50:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-22 06:50:01 +0000 |
| commit | 8b4b171e74f291e65405d8ba0a85f262b76f4d34 (patch) | |
| tree | bcfa397e259aa5538d0cd2ab799e683211c3fb4e /lisp/emacs-lisp | |
| parent | a3dfa2c01534577c075e890b7ebbc6b843ae38d0 (diff) | |
| download | emacs-8b4b171e74f291e65405d8ba0a85f262b76f4d34.tar.gz emacs-8b4b171e74f291e65405d8ba0a85f262b76f4d34.tar.bz2 emacs-8b4b171e74f291e65405d8ba0a85f262b76f4d34.zip | |
(easy-menu-create-keymaps):
Renamed from easy-menu-keymap. Callers changed.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 3aa27c44de7..e853ade3ffb 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -58,7 +58,7 @@ menu item in the top-level menu. The cdr of the submenu list is a list of menu items, as above." (` (let* ((maps (, maps)) (menu (, menu)) - (keymap (easy-menu-keymap (car menu) (cdr menu)))) + (keymap (easy-menu-create-keymaps (car menu) (cdr menu)))) (and (keymapp maps) (setq maps (list maps))) (while maps (define-key (car maps) (vector 'menu-bar (intern (car menu))) @@ -69,7 +69,7 @@ is a list of menu items, as above." ;; Return a menu keymap corresponding to a Lucid-style menu list ;; MENU-ITEMS, and with name MENU-NAME. -(defun easy-menu-keymap (menu-name menu-items) +(defun easy-menu-create-keymaps (menu-name menu-items) (let ((menu (make-sparse-keymap menu-name))) ;; Process items in reverse order, ;; since the define-key loop reverses them again. @@ -82,7 +82,7 @@ is a list of menu items, as above." (setq command nil) (setq name (if (string-match "^-+$" item) "" item))) ((consp item) - (setq command (easy-menu-keymap (car item) (cdr item))) + (setq command (easy-menu-create-keymaps (car item) (cdr item))) (setq name (car item))) ((vectorp item) (setq command (make-symbol (format "menu-function-%d" |