From 1aae5c9242179f411345b1c26bf71c36e46da04a Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 7 Oct 2019 12:58:05 -0400 Subject: [PATCH] tools/eval: fix extra newlines in term-char-mode REPLs #1836 --- modules/tools/eval/autoload/repl.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/modules/tools/eval/autoload/repl.el b/modules/tools/eval/autoload/repl.el index d534e906c..badb77e5c 100644 --- a/modules/tools/eval/autoload/repl.el +++ b/modules/tools/eval/autoload/repl.el @@ -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)