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

Don't add menu bar to minibuffer-only frames.

Browse source
This commit is contained in:
Richard M. Stallman 1993-05-08 16:45:38 +00:00
parent 99e2d9a915
commit e5a10c8169
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/menu-bar.el
View file

@ -194,9 +194,11 @@ and selects that window."
;;; (or (buffer-file-name) ""))))))
;; Give all existing frames a menu bar.
;; (Except for minibuffer-only frames.)
(let ((frames (frame-list)))
(while frames
(modify-frame-parameters (car frames) '((menu-bar-lines . 1)))
(or (eq 'only (cdr (assq 'minibuffer (frame-parameters (car frames)))))
(modify-frame-parameters (car frames) '((menu-bar-lines . 1))))
(setq frames (cdr frames))))
;; Make frames created from now on have a menu bar.