bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#35334: 26.2; Changes to position of point are undone during with-cur


From: Noam Postavsky
Subject: bug#35334: 26.2; Changes to position of point are undone during with-current-buffer if window is visible but not current
Date: Sun, 21 Apr 2019 22:38:41 -0400
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/26.2 (gnu/linux)

Sean McAfee <address@hidden> writes:

> Starting with two windows visible, the scratch buffer and a window showing
> empty buffer "a", I evaluate this expression in the scratch buffer:
>
> (start-process "count" "a" "bash" "-c" "for i in {1..10}; echo $i; sleep 1; 
> done")

[missing a "do" before the "echo $i", by the way]

> I see the numbers 1-10 inserted into buffer "a", one second apart, as
> expected.  The position of point in buffer "a" follows the new lines as
> they're inserted.
>
> Now I define the function ordinary-insertion-filter, as found on this page:
>
> https://www.gnu.org/software/emacs/manual/html_node/elisp/Filter-Functions.html
>
> That function is described as "mimicking the actions of the default
> filter."  However, if I erase buffer "a" and evaluate this expression in
> the scratch buffer:
>
> (let ((proc (start-process "count" "a" "bash" "-c" "for i in {1..10}; echo 
> $i; sleep 1; done")))
>   (set-process-filter proc #'ordinary-insertion-filter))
>
> ...then I see the numbers inserted as before, but now the position of point
> in buffer "a" doesn't move

Okay, interesting.  The difference seems to be that
`internal-default-process-filter' actually uses `insert-before-markers'
rather than plain `insert'.  I guess the window point is implemented as
a marker, so inserting this way happens to move it as well.

     (defun ordinary-insertion-filter (proc string)
       (when (buffer-live-p (process-buffer proc))
         (with-current-buffer (process-buffer proc)
           (let ((moving (= (point) (process-mark proc))))
             (save-excursion
               ;; Insert the text, advancing the process marker.
               (goto-char (process-mark proc))
               (insert-before-markers string) ; <------------ change here
               (set-marker (process-mark proc) (point)))
             (if moving (goto-char (process-mark proc)))))))





reply via email to

[Prev in Thread] Current Thread [Next in Thread]