X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/blobdiff_plain/106b85a3371bbe8d0eaad3c78ec939a69a2006a7..255ee1fce8e9f11d7fa6f477033369fa47539c17:/el/dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index f66b833..df15026 100644
--- 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.