mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
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.
This commit is contained in:
Richard M. Stallman 1993-11-25 04:14:10 +00:00
parent 855885711f
commit 5f46b51a31
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/comint.el
View File

@ -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))