mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(popup-dialog-box): Bind meaning with let.

Browse Source 
(current-menubar): Add defvar.
This commit is contained in:
Richard M. Stallman 1994-05-23 07:41:31 +00:00
parent f97eee516b
commit f1e20cc208
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/emacs-lisp/lmenu.el
View File

@ -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))