Delete the code to enable menu bars.

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index 55cef190538394c04b739cb469afb7796dd30d19..e11c9c2368b22b88463c98563a08cdf9b42e2d4d 100644 (file)
--- 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)
 \f