diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-02-17 22:01:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-02-17 22:01:45 +0000 |
| commit | b041301359e70f25d56859e23c462fa9767eed58 (patch) | |
| tree | 2ae33a328fe8180813d2dc0cbe24005970b918ea /lisp/emacs-lisp | |
| parent | 5f65078a26ca99fc02b2164bdaa98ce523ebf6c6 (diff) | |
| download | emacs-b041301359e70f25d56859e23c462fa9767eed58.tar.gz emacs-b041301359e70f25d56859e23c462fa9767eed58.tar.bz2 emacs-b041301359e70f25d56859e23c462fa9767eed58.zip | |
Delete the code to enable menu bars.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lmenu.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el index 55cef190538..e11c9c2368b 100644 --- a/lisp/emacs-lisp/lmenu.el +++ b/lisp/emacs-lisp/lmenu.el @@ -382,13 +382,14 @@ BEFORE, if provided, is the name of a menu before which this menu should (defvar put-buffer-names-in-file-menu t) -(let ((frames (frame-list))) - (while frames - (modify-frame-parameters (car frames) '((menu-bar-lines . 1))) - (setq frames (cdr frames)))) -(or (assq 'menu-bar-lines default-frame-alist) - (setq default-frame-alist - (cons '(menu-bar-lines . 1) default-frame-alist))) +;; Don't unconditionally enable menu bars; leave that up to the user. +;;(let ((frames (frame-list))) +;; (while frames +;; (modify-frame-parameters (car frames) '((menu-bar-lines . 1))) +;; (setq frames (cdr frames)))) +;;(or (assq 'menu-bar-lines default-frame-alist) +;; (setq default-frame-alist +;; (cons '(menu-bar-lines . 1) default-frame-alist))) (set-menubar default-menubar) |