diff options
| author | Noah Friedman <friedman@splode.com> | 1994-06-30 06:46:44 +0000 |
|---|---|---|
| committer | Noah Friedman <friedman@splode.com> | 1994-06-30 06:46:44 +0000 |
| commit | ee50a52806c8c76b941394163bccbd112ce3b627 (patch) | |
| tree | fd5afa608d1d4ab1ede521336d5921f681644cff /lisp/rsz-mini.el | |
| parent | 5fb9cdd99eb2dceb0ed5fcf8a9a9b3add735e6fc (diff) | |
| download | emacs-ee50a52806c8c76b941394163bccbd112ce3b627.tar.gz emacs-ee50a52806c8c76b941394163bccbd112ce3b627.tar.bz2 emacs-ee50a52806c8c76b941394163bccbd112ce3b627.zip | |
(resize-minibuffer-window-restore): Don't do anything if the window height
is already 1.
Diffstat (limited to 'lisp/rsz-mini.el')
| -rw-r--r-- | lisp/rsz-mini.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/rsz-mini.el b/lisp/rsz-mini.el index 9dd48dd0768..8d90e0c8a56 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.3 1994/05/20 17:43:40 friedman Exp friedman $ +;;; $Id: rsz-mini.el,v 1.4 1994/06/22 22:14:28 friedman Exp friedman $ ;; This file is part of GNU Emacs. @@ -207,8 +207,10 @@ respectively." ;; its idea of the minibuffer window size when the minibuffer isn't in use ;; anyway; this is just a kludge because of the timing for that update). (defun resize-minibuffer-window-restore () - (enlarge-window (- 1 (window-height))) - (sit-for 0)) + (cond + ((> (window-height) 1) + (enlarge-window (- 1 (window-height))) + (sit-for 0)))) ;; Resize the minibuffer frame to contain the minibuffer's contents. |