Re: Behavior of with-current-buffer

["Andreas Röhler" <andreas.roehler@easy-emacs.de>]

Am 15.04.20 um 09:37 schrieb Andreas Röhler:
> Hi,
>
> have a buffer connected with a Python-process, however not in 
> comint-mode - for speed. See upper window in attachment 
> not-point-max.png.
>
> In the case given "import json" was sent to this buffer by a function 
> ‘py-fast-send-string’ which is shown partially in window below.
>
> This function checks for a newline-char at the end of the string - 
> actually an extra "\n" was sent inside this or-clause.
>
> After sending "\n", second-cursor in output-buffer is shown after the 
> newly inserted prompt at EOB. However, when or-clause returns, the 
> cursor jumps back to the position before the last prompt started, i.e. 
> at position before sending.
>
> An extra (goto-char (point-max)) as shown in code would help, but 
> shouldn't be necessary.
>
> Any explanation? A bug?
>
> Thanks,
> Andreas
> GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 2.24.32, 
> cairo version 1.16.0) of 2020-04-06
>
>
>
>

Herewith two example to reproduce from Emacs -Q


(defun with-current-buffer-check ()
   (interactive)
   (let ((oldbuf (current-buffer))
     (output-buffer (shell  "With-current-buffer-Test")))
     (set-buffer oldbuf)
       (with-current-buffer output-buffer
     (goto-char (point-max))
     (insert "echo \"asdf\"")
     (comint-send-input))))

(defun with-current-buffer-check-2 ()
   (interactive)
   (let* ((oldbuf (current-buffer))
      (output-buffer (shell  "With-current-buffer-Test-2"))
      (proc (get-buffer-process output-buffer))
      (strg "echo \"asdf\""))
     (set-buffer oldbuf)
     (with-current-buffer output-buffer
       (process-send-string proc strg)
       (or (string-match "\n$" strg)
       (process-send-string proc "\n")))))