Commit 17c4c3c4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(menu-bar-mode): Preserve window height.

parent 19021bfb
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment