Mercurial > emacs

comparison lisp/menu-bar.el @ 7569:50a6cd8563b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-mode): Preserve window height.
author Richard M. Stallman <rms@gnu.org>
date Thu, 19 May 1994 22:06:14 +0000
parents 9c6abdf5541a
children 7259e377c81f
comparison
equal deleted inserted replaced
7568:83bd6547675c 7569:50a6cd8563b6
414 default-frame-alist)))) 414 default-frame-alist))))
415 415
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 (modify-frame-parameters (car frames) 419 (let ((height (cdr (assq 'height (frame-parameters (selected-frame))))))
420 (list (cons 'menu-bar-lines 420 (modify-frame-parameters (car frames)
421 (list (cons 'menu-bar-lines
421 (if menu-bar-mode 1 0)))) 422 (if menu-bar-mode 1 0))))
423 (modify-frame-parameters (car frames)
424 (list (cons 'height height))))
422 (setq frames (cdr frames)))))) 425 (setq frames (cdr frames))))))
423 426
424 (provide 'menu-bar) 427 (provide 'menu-bar)
425 428
426 ;;; menu-bar.el ends here 429 ;;; menu-bar.el ends here