Mercurial > emacs
changeset 7656:d50e5481aae2
(popup-dialog-box): Bind meaning with let.
(current-menubar): Add defvar.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 23 May 1994 07:41:31 +0000 |
| parents | 9134274acb76 |
| children | 5d806a0a50bc |
| files | lisp/emacs-lisp/lmenu.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lmenu.el Mon May 23 07:39:08 1994 +0000 +++ b/lisp/emacs-lisp/lmenu.el Mon May 23 07:41:31 1994 +0000 @@ -27,6 +27,8 @@ ;; Arrange to use current-menubar to set up part of the menu bar. +(defvar current-menubar) + (setq recompute-lucid-menubar 'recompute-lucid-menubar) (defun recompute-lucid-menubar () (define-key lucid-menubar-map [menu-bar] @@ -179,7 +181,7 @@ (let ((name (car data)) (tail (cdr data)) converted - choice) + choice meaning) (while tail (if (null (car tail)) (setq converted (cons nil converted))