Commit f1e20cc2 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

(current-menubar): Add defvar.
parent f97eee51
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment