procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Delete the code to enable menu bars.

Browse source
This commit is contained in:
Richard M. Stallman 1994-02-17 22:01:45 +00:00
parent 5f65078a26
commit b041301359
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/emacs-lisp/lmenu.el
View file

@ -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)