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

(menu-bar-mode): Fix previous change.

parent 09e2ac30
......@@ -416,7 +416,7 @@ turn off menu bars; otherwise, turn on menu bars."
;; Apply it to existing frames.
(let ((frames (frame-list)))
(while frames
(let ((height (cdr (assq 'height (frame-parameters (selected-frame))))))
(let ((height (cdr (assq 'height (frame-parameters (car frames))))))
(modify-frame-parameters (car frames)
(list (cons 'menu-bar-lines
(if menu-bar-mode 1 0))))
......
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