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) (puthash key buffer +eval-repl-buffers)
buffer))) buffer)))
(with-current-buffer buffer (with-current-buffer buffer
(goto-char (if (and (derived-mode-p 'comint-mode) (unless (or (derived-mode-p 'term-mode)
(cdr comint-last-prompt)) (eq (current-local-map) term-raw-map))
(cdr comint-last-prompt) (goto-char (if (and (derived-mode-p 'comint-mode)
(point-max))) (cdr comint-last-prompt))
(cdr comint-last-prompt)
(point-max))))
buffer))) buffer)))
(defun +eval-open-repl (prompt-p &optional other-window-p) (defun +eval-open-repl (prompt-p &optional other-window-p)