tools/eval: fix extra newlines in term-char-mode REPLs #1836

This commit is contained in:
Henrik Lissner 2019-10-07 12:58:05 -04:00
parent d9945d8964
commit 1aae5c9242
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -33,10 +33,12 @@
(puthash key buffer +eval-repl-buffers)
buffer)))
(with-current-buffer buffer
(goto-char (if (and (derived-mode-p 'comint-mode)
(cdr comint-last-prompt))
(cdr comint-last-prompt)
(point-max)))
(unless (or (derived-mode-p 'term-mode)
(eq (current-local-map) term-raw-map))
(goto-char (if (and (derived-mode-p 'comint-mode)
(cdr comint-last-prompt))
(cdr comint-last-prompt)
(point-max))))
buffer)))
(defun +eval-open-repl (prompt-p &optional other-window-p)