diff options
| author | Richard M. Stallman | 1994-05-30 09:15:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-30 09:15:53 +0000 |
| commit | c32b0bce83d8ce64556afa71cc09c75a4e0e2819 (patch) | |
| tree | a53cbe6bf1af3c9b29ba9c2c3ef5dede57a7cf34 | |
| parent | 09e2ac30b1e0245cc4d832084c1ada33a7e6f317 (diff) | |
| download | emacs-c32b0bce83d8ce64556afa71cc09c75a4e0e2819.tar.gz emacs-c32b0bce83d8ce64556afa71cc09c75a4e0e2819.zip | |
(menu-bar-mode): Fix previous change.
| -rw-r--r-- | lisp/menu-bar.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 416 | ;; Apply it to existing frames. | 416 | ;; Apply it to existing frames. |
| 417 | (let ((frames (frame-list))) | 417 | (let ((frames (frame-list))) |
| 418 | (while frames | 418 | (while frames |
| 419 | (let ((height (cdr (assq 'height (frame-parameters (selected-frame)))))) | 419 | (let ((height (cdr (assq 'height (frame-parameters (car frames)))))) |
| 420 | (modify-frame-parameters (car frames) | 420 | (modify-frame-parameters (car frames) |
| 421 | (list (cons 'menu-bar-lines | 421 | (list (cons 'menu-bar-lines |
| 422 | (if menu-bar-mode 1 0)))) | 422 | (if menu-bar-mode 1 0)))) |