# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 769678891 0
# Node ID d50e5481aae20da5b829c44d161375b775c13a91
# Parent  9134274acb76ca97d337e25d328c69ca4db51d0a
(popup-dialog-box): Bind meaning with let.
(current-menubar): Add defvar.

diff -r 9134274acb76 -r d50e5481aae2 lisp/emacs-lisp/lmenu.el
--- 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))