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

Now that Emacs can work on different terminal kinds at the same time,
it seems sensible that one might want different parameters for them.  But
it won't let me.  So I have an alist indexed by `window-system'.

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)
 
       (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.
 
 ;;;--------------------------------------------------------------------------
 ;;; General fontification.