Commit 5f46b51a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(comint-send-input): Don't call comint-arguments

to set HISTORY, even if comint-input-autoexpand is not `history'.
When comint-input-autoexpand is `history', undo part of prev change:
do put INPUT back in the buffer in place of expanded hist.
parent 85588571
......@@ -1081,12 +1081,15 @@ Similarly for Soar, Scheme, etc."
(comint-replace-by-expanded-history)
(buffer-substring pmark (point))))
(history (if (not (eq comint-input-autoexpand 'history))
(comint-arguments input 0 nil)
input
;; This is messy 'cos ultimately the original
;; functions used do insertion, rather than return
;; strings. We have to expand, then insert back.
(comint-replace-by-expanded-history)
(buffer-substring pmark (point)))))
(let ((copy (buffer-substring pmark (point))))
(delete-region pmark (point))
(insert input)
copy))))
(if comint-process-echoes
(delete-region pmark (point))
(insert ?\n))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment