From 17c4c3c40d66966648ae174a716a6a6aff7b574b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 19 May 1994 22:06:14 +0000 Subject: [PATCH] (menu-bar-mode): Preserve window height. --- lisp/menu-bar.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index c89a356b6af..068a8956f87 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -416,9 +416,12 @@ turn off menu bars; otherwise, turn on menu bars." ;; Apply it to existing frames. (let ((frames (frame-list))) (while frames - (modify-frame-parameters (car frames) - (list (cons 'menu-bar-lines + (let ((height (cdr (assq 'height (frame-parameters (selected-frame)))))) + (modify-frame-parameters (car frames) + (list (cons 'menu-bar-lines (if menu-bar-mode 1 0)))) + (modify-frame-parameters (car frames) + (list (cons 'height height)))) (setq frames (cdr frames)))))) (provide 'menu-bar) -- 2.39.5