mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki 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
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))