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

(comint-send-string, comint-send-region): Make into real functions.

Browse Source 
Snapshot the prompt before sending.
This commit is contained in:
Miles Bader 2000-08-11 19:17:18 +00:00
parent 187bd11cd3
commit 79e8dca7df
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2000-08-12 Miles Bader <miles@gnu.org>
* comint.el (comint-send-string, comint-send-region): Make into
real functions. Snapshot the prompt before sending.
2000-08-11 Eli Zaretskii <eliz@is.elta.co.il>
* info.el (Info-find-emacs-command-nodes): Rewrite to use

13
lisp/comint.el
View File

@ -1840,8 +1840,17 @@ This function could be in the list `comint-output-filter-functions'."
;; Low-level process communication
(defalias 'comint-send-string 'process-send-string)
(defalias 'comint-send-region 'process-send-region)
(defun comint-send-string (process string)
"Like `process-send-string', but also does extra bookkeeping for comint mode."
(with-current-buffer (process-buffer process)
(comint-snapshot-last-prompt))
(process-send-string process string))
(defun comint-send-region (process start end)
"Like `process-send-region', but also does extra bookkeeping for comint mode."
(with-current-buffer (process-buffer process)
(comint-snapshot-last-prompt))
(process-send-region process start end))
;; Random input hackage