masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-18 18:00:11 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

(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
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) (comint-replace-by-expanded-history)
(buffer-substring pmark (point)))) (buffer-substring pmark (point))))
(history (if (not (eq comint-input-autoexpand 'history)) (history (if (not (eq comint-input-autoexpand 'history))
(comint-arguments input 0 nil) input
;; This is messy 'cos ultimately the original ;; This is messy 'cos ultimately the original
;; functions used do insertion, rather than return ;; functions used do insertion, rather than return
;; strings. We have to expand, then insert back. ;; strings. We have to expand, then insert back.
(comint-replace-by-expanded-history) (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 (if comint-process-echoes
(delete-region pmark (point)) (delete-region pmark (point))
(insert ?\n)) (insert ?\n))