tools/eval: fix extra newlines in term-char-mode REPLs #1836
This commit is contained in:
parent
d9945d8964
commit
1aae5c9242
1 changed files with 6 additions and 4 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue