# HG changeset patch
# User adrian
# Date 1162416936 0
# Node ID bd7189f2e967adf6e2e606f931b52c56b8c8d9ad
# Parent  edbb1ff43fe03df396cb4572d563fbaadfcc6d46
[xemacs-hg @ 2006-11-01 21:35:35 by adrian]
xemacs-21.5-clean: minibuffer resizing	based on echo area size

-------------------- ChangeLog entries follow: --------------------

lisp/ChangeLog addition:

2006-10-28  Adrian Aichner  <adrian@xemacs.org>

	* simple.el (raw-append-message): Implement minibuffer resizing
	based on requirements of echo area content.

diff -r edbb1ff43fe0 -r bd7189f2e967 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Nov 01 21:16:17 2006 +0000
+++ b/lisp/ChangeLog	Wed Nov 01 21:35:36 2006 +0000
@@ -1,7 +1,7 @@
 2006-10-28  Adrian Aichner  <adrian@xemacs.org>
 
 	* simple.el (raw-append-message): Implement minibuffer resizing
-	based on requirements filled echo area content.
+	based on requirements of echo area content.
 
 2006-10-28  Nix  <nix@esperi.org.uk>
 
diff -r edbb1ff43fe0 -r bd7189f2e967 lisp/simple.el
--- a/lisp/simple.el	Wed Nov 01 21:16:17 2006 +0000
+++ b/lisp/simple.el	Wed Nov 01 21:35:36 2006 +0000
@@ -4301,7 +4301,16 @@
 (defun raw-append-message (message &optional frame stdout-p)
   (unless (equal message "")
     (let ((inhibit-read-only t))
-      (insert-string message " *Echo Area*")
+      (with-current-buffer " *Echo Area*"
+	(insert-string message)
+	;; (fill-region (point-min) (point-max))
+	(enlarge-window
+	 (- 
+	  (ceiling
+	   (/ (- (point-max) (point-min)) 
+	      (- (window-width (minibuffer-window)) 1.0)))
+	  (window-height (minibuffer-window)))
+	 nil (minibuffer-window)))
       ;; Conditionalizing on the device type in this way is not that clean,
       ;; but neither is having a device method, as I originally implemented
       ;; it: all non-stream devices behave in the same way.  Perhaps