summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1996-11-19 07:38:29 +0000
committerKarl Heuer <kwzh@gnu.org>1996-11-19 07:38:29 +0000
commiteae69f4109686c62037f356f959b277cc2ac490e (patch)
tree564003e053033ee3c7b7af13655c3cbcac79ad4a
parent41584c986c3def5a25a3fe013271b46c72873012 (diff)
downloademacs-eae69f4109686c62037f356f959b277cc2ac490e.tar.gz
(resize-minibuffer-frame): Don't assume minibuffer frame is selected.
-rw-r--r--lisp/rsz-mini.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/rsz-mini.el b/lisp/rsz-mini.el
index f1221b40ba9..cf278d00b09 100644
--- a/lisp/rsz-mini.el
+++ b/lisp/rsz-mini.el
@@ -7,7 +7,7 @@
;; Maintainer: friedman@prep.ai.mit.edu
;; Keywords: minibuffer, window, frame, display
;; Status: Known to work in FSF GNU Emacs 19.26 and later.
-;; $Id: rsz-mini.el,v 1.11 1996/01/14 07:34:30 erik Exp kwzh $
+;; $Id: rsz-mini.el,v 1.12 1996/11/14 18:49:50 kwzh Exp kwzh $
;; This file is part of GNU Emacs.
@@ -232,11 +232,12 @@ respectively."
(setq lines (min lines resize-minibuffer-frame-max-height)))
(cond
((> lines height)
- (set-frame-size (selected-frame) (frame-width) lines))
+ (set-frame-size (window-frame (minibuffer-window)) (frame-width) lines))
((and resize-minibuffer-frame-exactly
(> height resize-minibuffer-frame-original-height)
(< lines height))
- (set-frame-size (selected-frame) (frame-width) lines)))))
+ (set-frame-size (window-frame (minibuffer-window))
+ (frame-width) lines)))))
;; Restore the original height of the frame.
;; resize-minibuffer-frame-original-height is set in