HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
19021bf
)
(menu-bar-mode): Preserve window height.
author
Richard M. Stallman
<rms@gnu.org>
Thu, 19 May 1994 22:06:14 +0000
(22:06 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Thu, 19 May 1994 22:06:14 +0000
(22:06 +0000)
lisp/menu-bar.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/menu-bar.el
b/lisp/menu-bar.el
index
c89a356
..
068a895
100644
(file)
--- 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)