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

(lucid-menubar-map, lucid-failing-menubar)

(recompute-lucid-menubar): Add defvars.
parent c7c93bd9
...@@ -32,8 +32,10 @@ ...@@ -32,8 +32,10 @@
;; Arrange to use current-menubar to set up part of the menu bar. ;; Arrange to use current-menubar to set up part of the menu bar.
(defvar current-menubar) (defvar current-menubar)
(defvar lucid-menubar-map)
(defvar lucid-failing-menubar)
(setq recompute-lucid-menubar 'recompute-lucid-menubar) (defvar recompute-lucid-menubar 'recompute-lucid-menubar)
(defun recompute-lucid-menubar () (defun recompute-lucid-menubar ()
(define-key lucid-menubar-map [menu-bar] (define-key lucid-menubar-map [menu-bar]
(condition-case nil (condition-case nil
......
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