diff options
| author | Richard M. Stallman | 1993-06-05 19:13:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-05 19:13:03 +0000 |
| commit | 22390f50fdf8058f9e2c787a18b527364cb1d010 (patch) | |
| tree | 8dc74efcde092f8220dff82801cf8d682fc49b11 | |
| parent | 0102ea2d9549a59aa65bb53b3ba5206243145929 (diff) | |
| download | emacs-22390f50fdf8058f9e2c787a18b527364cb1d010.tar.gz emacs-22390f50fdf8058f9e2c787a18b527364cb1d010.zip | |
(menu-bar-help-menu): Add defvar.
(menu-bar-edit-menu, menu-bar-file-menu): Likewise.
| -rw-r--r-- | lisp/menu-bar.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 0b0e694020b..ca16bd9e184 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -24,11 +24,11 @@ | |||
| 24 | ;;; Code: | 24 | ;;; Code: |
| 25 | 25 | ||
| 26 | (define-key global-map [menu-bar] (make-sparse-keymap "menu-bar")) | 26 | (define-key global-map [menu-bar] (make-sparse-keymap "menu-bar")) |
| 27 | (setq menu-bar-help-menu (make-sparse-keymap "Help")) | 27 | (defvar menu-bar-help-menu (make-sparse-keymap "Help")) |
| 28 | (define-key global-map [menu-bar help] (cons "Help" menu-bar-help-menu)) | 28 | (define-key global-map [menu-bar help] (cons "Help" menu-bar-help-menu)) |
| 29 | (setq menu-bar-edit-menu (make-sparse-keymap "Edit")) | 29 | (defvar menu-bar-edit-menu (make-sparse-keymap "Edit")) |
| 30 | (define-key global-map [menu-bar edit] (cons "Edit" menu-bar-edit-menu)) | 30 | (define-key global-map [menu-bar edit] (cons "Edit" menu-bar-edit-menu)) |
| 31 | (setq menu-bar-file-menu (make-sparse-keymap "File")) | 31 | (defvar menu-bar-file-menu (make-sparse-keymap "File")) |
| 32 | (define-key global-map [menu-bar file] (cons "File" menu-bar-file-menu)) | 32 | (define-key global-map [menu-bar file] (cons "File" menu-bar-file-menu)) |
| 33 | 33 | ||
| 34 | (define-key menu-bar-file-menu [exit-emacs] | 34 | (define-key menu-bar-file-menu [exit-emacs] |