Mercurial > emacs

diff lisp/rsz-mini.el @ 8093:1978838b7b6f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(resize-minibuffer-window-restore): Don't do anything if the window height is already 1.
author Noah Friedman <friedman@splode.com>
date Thu, 30 Jun 1994 06:46:44 +0000
parents df03bfa5b694
children 3ad4ec3c9228
line wrap: on
line diff
--- a/lisp/rsz-mini.el	Thu Jun 30 04:49:26 1994 +0000
+++ b/lisp/rsz-mini.el	Thu Jun 30 06:46:44 1994 +0000
@@ -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 @@
 ;; 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.