Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
3651:edbb1ff43fe0 3652:bd7189f2e967
4299 ;; Really append the message to the echo area. no fiddling with 4299 ;; Really append the message to the echo area. no fiddling with
4300 ;; message-stack. 4300 ;; message-stack.
4301 (defun raw-append-message (message &optional frame stdout-p) 4301 (defun raw-append-message (message &optional frame stdout-p)
4302 (unless (equal message "") 4302 (unless (equal message "")
4303 (let ((inhibit-read-only t)) 4303 (let ((inhibit-read-only t))
4304 (insert-string message " *Echo Area*") 4304 (with-current-buffer " *Echo Area*"
4305 (insert-string message)
4306 ;; (fill-region (point-min) (point-max))
4307 (enlarge-window
4308 (-
4309 (ceiling
4310 (/ (- (point-max) (point-min))
4311 (- (window-width (minibuffer-window)) 1.0)))
4312 (window-height (minibuffer-window)))
4313 nil (minibuffer-window)))
4305 ;; Conditionalizing on the device type in this way is not that clean, 4314 ;; Conditionalizing on the device type in this way is not that clean,
4306 ;; but neither is having a device method, as I originally implemented 4315 ;; but neither is having a device method, as I originally implemented
4307 ;; it: all non-stream devices behave in the same way. Perhaps 4316 ;; it: all non-stream devices behave in the same way. Perhaps
4308 ;; the cleanest way is to make the concept of a "redisplayable" 4317 ;; the cleanest way is to make the concept of a "redisplayable"
4309 ;; device, which stream devices are not. Look into this more if 4318 ;; device, which stream devices are not. Look into this more if