Mercurial > emacs

comparison lisp/rsz-mini.el @ 16597:ebdcc5509856

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(resize-minibuffer-frame): Don't assume minibuffer frame is selected.
author Karl Heuer <kwzh@gnu.org>
date Tue, 19 Nov 1996 07:38:29 +0000
parents 15cf729665be
children f56c39dd998d
comparison
equal deleted inserted replaced
16596:0f917c0edc53 16597:ebdcc5509856
5 ;; Author: Noah Friedman <friedman@prep.ai.mit.edu> 5 ;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
6 ;; Roland McGrath <roland@prep.ai.mit.edu> 6 ;; Roland McGrath <roland@prep.ai.mit.edu>
7 ;; Maintainer: friedman@prep.ai.mit.edu 7 ;; Maintainer: friedman@prep.ai.mit.edu
8 ;; Keywords: minibuffer, window, frame, display 8 ;; Keywords: minibuffer, window, frame, display
9 ;; Status: Known to work in FSF GNU Emacs 19.26 and later. 9 ;; Status: Known to work in FSF GNU Emacs 19.26 and later.
10 ;; $Id: rsz-mini.el,v 1.11 1996/01/14 07:34:30 erik Exp kwzh $ 10 ;; $Id: rsz-mini.el,v 1.12 1996/11/14 18:49:50 kwzh Exp kwzh $
11 11
12 ;; This file is part of GNU Emacs. 12 ;; This file is part of GNU Emacs.
13 13
14 ;; GNU Emacs is free software; you can redistribute it and/or modify 14 ;; GNU Emacs is free software; you can redistribute it and/or modify
15 ;; it under the terms of the GNU General Public License as published by 15 ;; it under the terms of the GNU General Public License as published by
230 (and (numberp resize-minibuffer-frame-max-height) 230 (and (numberp resize-minibuffer-frame-max-height)
231 (> resize-minibuffer-frame-max-height 0) 231 (> resize-minibuffer-frame-max-height 0)
232 (setq lines (min lines resize-minibuffer-frame-max-height))) 232 (setq lines (min lines resize-minibuffer-frame-max-height)))
233 (cond 233 (cond
234 ((> lines height) 234 ((> lines height)
235 (set-frame-size (selected-frame) (frame-width) lines)) 235 (set-frame-size (window-frame (minibuffer-window)) (frame-width) lines))
236 ((and resize-minibuffer-frame-exactly 236 ((and resize-minibuffer-frame-exactly
237 (> height resize-minibuffer-frame-original-height) 237 (> height resize-minibuffer-frame-original-height)
238 (< lines height)) 238 (< lines height))
239 (set-frame-size (selected-frame) (frame-width) lines))))) 239 (set-frame-size (window-frame (minibuffer-window))
240 (frame-width) lines)))))
240 241
241 ;; Restore the original height of the frame. 242 ;; Restore the original height of the frame.
242 ;; resize-minibuffer-frame-original-height is set in 243 ;; resize-minibuffer-frame-original-height is set in
243 ;; resize-minibuffer-setup. 244 ;; resize-minibuffer-setup.
244 (defun resize-minibuffer-frame-restore () 245 (defun resize-minibuffer-frame-restore ()