🚀 go-pugleaf

In article <9009192153.AA28609@pogo> rms@AI.MIT.EDU (Richard Stallman) writes:

rms>   Here is how to do these things:
rms>
rms>   @example
rms>   (let ((old-buffer (current-buffer)))
rms>     (unwind-protect
rms>	 (let (moving)
rms>	   (set-buffer (process-buffer proc))
rms>	   (setq moving (= (point) (process-mark proc)))
rms>	   (save-excursion
rms>	     ;; Insert the text, moving the process-marker.
rms>	     (goto-char (process-mark proc))
rms>	     (insert string)
rms>	     (set-marker (process-mark proc) (point)))
rms>	   (if moving (goto-char (process-mark proc))))
rms>       (set-buffer old-buffer)))
rms>   @end example

Then, is this the right way to have a process-filter that ALWAYS pops
up the process-buffer when new text arrives, AND scrolls the
process-buffer (always showing the bottom of the process-buffer).

(defun pop-up-and-scroll-process-filter (proc string)
  (let ((cur-win (selected-window))
	(old-buf (current-buffer))
	(pop-up-windows t))
    (unwind-protect
	(let (moving)
	  (pop-to-buffer (process-buffer proc))
	  (setq moving (= (point) (process-mark proc)))
	  (save-excursion
	    ;; Insert the text, moving the process-marker.
	    (goto-char (process-mark proc))
	    (insert string)
	    (set-marker (process-mark proc) (point)))
	  (if moving (goto-char (process-mark proc))))
      (select-window cur-win)
      (set-buffer old-buf))))

---
 Lars Bo Nielsen @ Aalborg University - Denmark
 lbn@iesd.auc.dk  -**-  {...}!mcsun!dkuug!auc!iesd!lbn
---