diff options
| author | Richard M. Stallman <[email protected]> | 1994-05-23 07:41:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-05-23 07:41:31 +0000 |
| commit | f1e20cc2080c15053b391213ad731c551d750721 (patch) | |
| tree | 4de9a37ebaa431f0bd83fafe92a7fc62bdf24095 /lisp/emacs-lisp | |
| parent | f97eee516b814a964cd400aa28ad8a37513351c4 (diff) | |
(popup-dialog-box): Bind meaning with let.
(current-menubar): Add defvar.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lmenu.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el index a8fa759d4d..80fb1e084c 100644 --- a/lisp/emacs-lisp/lmenu.el +++ b/lisp/emacs-lisp/lmenu.el @@ -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 @@ The syntax, more precisely: (let ((name (car data)) (tail (cdr data)) converted - choice) + choice meaning) (while tail (if (null (car tail)) (setq converted (cons nil converted)) |