el/dot-emacs.el: Remove menu bar from dumb terminals.

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index f66b83367c908ae21b6fb3471c3bf097e7e444cb..df1502634f7373d497a9b7480bc1e1353de1dc58 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -742,6 +742,17 @@ (defun mdw-last-one-out-turn-off-the-lights (frame)
       (run-with-idle-timer 0 nil #'x-close-connection frame-display))))
 (add-hook 'delete-frame-functions 'mdw-last-one-out-turn-off-the-lights)
 
+(defvar mdw-frame-parameters-alist
+  '((nil (menu-bar-lines . 0))))
+(defun mdw-set-frame-parameters (frame)
+  (let ((params (assq (if (fboundp 'window-system)
+                         (window-system frame)
+                       window-system)
+                     mdw-frame-parameters-alist)))
+    (when params
+      (modify-frame-parameters frame (cdr params)))))
+(add-hook 'after-make-frame-functions 'mdw-set-frame-parameters)
+
 ;;;--------------------------------------------------------------------------
 ;;; General fontification.