From c32b0bce83d8ce64556afa71cc09c75a4e0e2819 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 30 May 1994 09:15:53 +0000 Subject: [PATCH] (menu-bar-mode): Fix previous change. --- lisp/menu-bar.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 068a8956f87..cf0f3b174d5 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -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)))) -- 2.39.5