# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 736879538 0
# Node ID e044712728623c5146aeba562fbdf64ef9bb1e98
# Parent  ca45565a339213290a9accad31b5df84350a2bcd
Don't add menu bar to minibuffer-only frames.

diff -r ca45565a3392 -r e04471272862 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Sat May 08 16:29:04 1993 +0000
+++ b/lisp/menu-bar.el	Sat May 08 16:45:38 1993 +0000
@@ -194,9 +194,11 @@
 ;;;	       (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.