Mercurial > hg > xemacs-beta

changeset 3652:bd7189f2e967

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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.
author adrian
date Wed, 01 Nov 2006 21:35:36 +0000
parents edbb1ff43fe0
children e4c977408249
files lisp/ChangeLog lisp/simple.el
diffstat 2 files changed, 11 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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>
 
--- 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