aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/rsz-mini.el
diff options
context:
space:
mode:
authorNoah Friedman <[email protected]>1994-06-30 06:46:44 +0000
committerNoah Friedman <[email protected]>1994-06-30 06:46:44 +0000
commitee50a52806c8c76b941394163bccbd112ce3b627 (patch)
treefd5afa608d1d4ab1ede521336d5921f681644cff /lisp/rsz-mini.el
parent5fb9cdd99eb2dceb0ed5fcf8a9a9b3add735e6fc (diff)
(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.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/rsz-mini.el b/lisp/rsz-mini.el
index 9dd48dd076..8d90e0c8a5 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.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.