diff options
author | Karl Heuer <[email protected]> | 1996-11-19 07:38:29 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1996-11-19 07:38:29 +0000 |
commit | c7385664fde60a1fe4d617ccd6d19d83b355c3c2 (patch) | |
tree | 3ded63956d1205cc81e9697e5bd19fa7c130cfeb | |
parent | e5e0a3c9fe3b56e020cebe42edfb6958c91b2fff (diff) |
(resize-minibuffer-frame): Don't assume minibuffer frame is selected.
-rw-r--r-- | lisp/rsz-mini.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/rsz-mini.el b/lisp/rsz-mini.el index f1221b40ba..cf278d00b0 100644 --- a/lisp/rsz-mini.el +++ b/lisp/rsz-mini.el @@ -7,7 +7,7 @@ ;; Maintainer: [email protected] ;; 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 |