Automatically scrolling message buffer.

[Nikolaj Schumacher]

Hi everyone,

does anyone know a way to keep the *Messages* buffer displaying the end
of the buffer?

Currently, I do:

(defun scroll-messages ()
  (let ((window (get-buffer-window "*Messages*")))
    (and window
         (not (equal window (selected-window)))
         (with-selected-window window
           (set-window-point nil (point-max))
           (recenter -1)))))

(run-with-timer .2 .2 'scroll-messages)

Any cleaner solutions?  (Unfortunately, buffer modification hooks don't
seem to be called.)


regards,
Nikolaj Schumacher