Mercurial > hg > xemacs-beta

diff lisp/simple.el @ 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 9fddb79e8a88
children 1fe680cefdb7
line wrap: on
line diff
--- 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