🚀 go-pugleaf

In article <1991May2.101109.14087@eua.ericsson.se>, ebubra@erix.ericsson.se (Bertil Askelid) writes:
> 
> 
>I wonder how I can make the shell-mode screen automatically scroll as it is
>filled with characters from the background process?

Here is some code we use to do that:

;;; ----------------------------------------------------------------------

(defun scroll-process-output (process data)
  (princ data (process-mark process))
  (let ( (win (epoch::get-buffer-window (process-buffer process))) )
    (if (not (eq win (selected-window)))
      (set-window-point win (process-mark process))
)))

(defun scroll-this-process-buffer ()
  (interactive)
  (set-process-filter
    (get-buffer-process (current-buffer)) 'scroll-process-output
  )
  (if (not epoch::global-update) (setq epoch::global-update t))
  (epoch::set-update t)
)


-- 
Alan M. Carroll          <-- Another victim of applied metaphysics
Epoch Development Team   
Urbana Il.               "I hate shopping with the reality-impaired" - Susan