--- a/lisp/resize-minibuffer.el	Sun Apr 29 21:53:05 2007 +0000
+++ b/lisp/resize-minibuffer.el	Mon Apr 30 16:16:52 2007 +0000
@@ -36,7 +36,7 @@
 
 ;; This file has received maintenance by the XEmacs development team.
 
-;; $Id: resize-minibuffer.el,v 1.4 2002/03/15 07:43:21 ben Exp $
+;; $Id: resize-minibuffer.el,v 1.5 2007/04/30 16:16:51 stephent Exp $
 
 ;; This package allows the entire contents (or as much as possible) of the
 ;; minibuffer to be visible at once when typing.  As the end of a line is
@@ -88,6 +88,15 @@
   :type '(choice (const nil) integer)
   :group 'resize-minibuffer)
 
+;; #### Yeah, I know.  The relation between the echo area and the
+;; minibuffer needs rethinking. It's not really possible to unify them at
+;; present. -- sjt
+(defcustom resize-minibuffer-idle-height nil
+  "When minibuffer is idle, crop its window to this height.
+Must be a positive integer or nil.  nil indicates no limit.
+Effective only when `undisplay-echo-area-function' respects it.  One such
+function is `undisplay-echo-area-resize-window'.")
+
 (defcustom resize-minibuffer-window-exactly t
   "*If non-`nil', make minibuffer exactly the size needed to display all its contents.
 Otherwise, the minibuffer window can temporarily increase in size but