Mercurial > emacs

comparison lisp/emacs-lisp/easymenu.el @ 9586:bada2dc32adc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(easy-menu-create-keymaps): Add autoload cookie.
author Richard M. Stallman <rms@gnu.org>
date Tue, 18 Oct 1994 04:59:45 +0000
parents 39e8d792604f
children a721dbc48e10
comparison
equal deleted inserted replaced
9585:0088fa4ae1fa 9586:bada2dc32adc
67 67
68 (defvar easy-menu-item-count 0) 68 (defvar easy-menu-item-count 0)
69 69
70 ;; Return a menu keymap corresponding to a Lucid-style menu list 70 ;; Return a menu keymap corresponding to a Lucid-style menu list
71 ;; MENU-ITEMS, and with name MENU-NAME. 71 ;; MENU-ITEMS, and with name MENU-NAME.
72 ;;;###autoload
72 (defun easy-menu-create-keymaps (menu-name menu-items) 73 (defun easy-menu-create-keymaps (menu-name menu-items)
73 (let ((menu (make-sparse-keymap menu-name))) 74 (let ((menu (make-sparse-keymap menu-name)))
74 ;; Process items in reverse order, 75 ;; Process items in reverse order,
75 ;; since the define-key loop reverses them again. 76 ;; since the define-key loop reverses them again.
76 (setq menu-items (reverse menu-items)) 77 (setq menu-items (reverse menu-items))