From c7385664fde60a1fe4d617ccd6d19d83b355c3c2 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 19 Nov 1996 07:38:29 +0000 Subject: (resize-minibuffer-frame): Don't assume minibuffer frame is selected. --- lisp/rsz-mini.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'lisp/rsz-mini.el') 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: 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 -- cgit v1.2.3