CVS update by adrian xemacs/lisp ...

[xemacs-cvs at xemacs.org]

  User: adrian  
  Date: 06/11/01 22:35:40

  Modified:    xemacs/lisp ChangeLog simple.el
Log:
xemacs-21.5-clean: minibuffer resizing	based on echo area size

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

lisp/ChangeLog addition:

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

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

Revision  Changes    Path
1.766     +1 -1      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.765
retrieving revision 1.766
diff -u -p -r1.765 -r1.766
--- ChangeLog	2006/11/01 20:55:14	1.765
+++ ChangeLog	2006/11/01 21:35:35	1.766
@@ -1,7 +1,7 @@
 2006-10-28  Adrian Aichner  <adrian at 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 at esperi.org.uk>
 



1.56      +10 -1     XEmacs/xemacs/lisp/simple.el

Index: simple.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/simple.el,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -p -r1.55 -r1.56
--- simple.el	2006/04/25 19:46:24	1.55
+++ simple.el	2006/11/01 21:35:36	1.56
@@ -4301,7 +4301,16 @@ you should just use (message nil)."
 (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