Re: call-process and incremental display of output

[Florian Weimer]

* > On Wed, Oct 17, 2018 at 10:32:04AM +0200, Florian Weimer wrote:
>> * Stefan Monnier:
>> 
>> >> (defun fw/get-new-mail ()
>
> [...]
>
>> I see.  Further questions: How can I restore the window configuration
>> after the process terminates?  Is there something similar to
>> save-excursion?
>
> save-window-excursion

Oops, I could have found this myself.

>> How can I make the displayed buffer to scroll to the end?
>
>   (pop-to buffer "foo")
>   (goto-char (point-max))
>
> Don't wrap this in save-excursion :-)

Nice, I now have got this:

(defun fw/get-new-mail ()
  (interactive)
  (let* ((buffer (get-buffer-create "*mbsync*"))
         (status (save-window-excursion
                   (pop-to-buffer buffer)
                   (delete-region (point-min) (point-max))
                   (goto-char (point-max))
                   (call-process "mbsync" nil (list buffer t) t
                                 "-V" "redhat-incoming"))))
    (unless (= 0 status)
      (switch-to-buffer buffer)
      (error "mbsync exit with status %d" status))))

It's not very Emacs-like, but at least I have something to watch while
mail is downloaded.  Thanks!

Florian