mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-22 13:40:44 -08:00
Code Issues Projects Releases Wiki Activity

(comint-filter): New function.

Browse source 
(comint-exec): Install the filter.
This commit is contained in:
Richard M. Stallman 1993-05-06 19:51:08 +00:00
parent c3bd85dd5f
commit 5511e41124
1 changed files with 39 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

40
lisp/comint.el
View file

@ -330,6 +330,7 @@ buffer. The hook comint-exec-hook is run after each exec."
(if proc (delete-process proc))) (if proc (delete-process proc)))
;; Crank up a new process ;; Crank up a new process
(let ((proc (comint-exec-1 name buffer command switches))) (let ((proc (comint-exec-1 name buffer command switches)))
(set-process-filter proc 'comint-filter)
(make-local-variable 'comint-ptyp) (make-local-variable 'comint-ptyp)
(setq comint-ptyp process-connection-type) ; T if pty, NIL if pipe. (setq comint-ptyp process-connection-type) ; T if pty, NIL if pipe.
;; Jump to the end, and set the process mark. ;; Jump to the end, and set the process mark.
@ -594,7 +595,7 @@ point as input to the process. Before the process output mark, calls value
of variable `comint-get-old-input' to retrieve old input, copies it to the of variable `comint-get-old-input' to retrieve old input, copies it to the
process mark, and sends it. If variable `comint-process-echoes' is `nil', process mark, and sends it. If variable `comint-process-echoes' is `nil',
a terminal newline is also inserted into the buffer and sent to the process a terminal newline is also inserted into the buffer and sent to the process
(if it is non-`nil', all text from the process mark to point is deleted, \(if it is non-`nil', all text from the process mark to point is deleted,
since it is assumed the remote process will re-echo it). The value of since it is assumed the remote process will re-echo it). The value of
variable `comint-input-sentinel' is called on the input before sending it. variable `comint-input-sentinel' is called on the input before sending it.
The input is entered into the input history ring, if the value of variable The input is entered into the input history ring, if the value of variable
@ -645,6 +646,43 @@ Similarly for Soar, Scheme, etc."
(set-marker comint-last-input-end (point)) (set-marker comint-last-input-end (point))
(set-marker (process-mark proc) (point)))))) (set-marker (process-mark proc) (point))))))
;; The sole purpose of using this filter for comint processes
;; is to keep comint-last-input-end from moving forward
;; when output is inserted.
(defun comint-filter (process string)
(let ((obuf (current-buffer))
ordonly
opoint obeg oend)
(set-buffer (process-buffer process))
(setq opoint (point))
(setq obeg (point-min))
(setq oend (point-max))
(setq ordonly buffer-read-only)
(let ((buffer-read-only nil)
(nchars (length string)))
(widen)
(goto-char (process-mark process))
(setq opoint (+ opoint nchars))
;; Insert after old_begv, but before old_zv.
(if (< (point) obeg)
(setq obeg (+ obeg nchars)))
(if (<= (point) oend)
(setq oend (+ oend nchars)))
(insert-before-markers string)
(and comint-last-input-end
(marker-buffer comint-last-input-end)
(= (point) comint-last-input-end)
(set-marker comint-last-input-end
(- comint-last-input-end nchars)))
(set-marker (process-mark process) (point) nil)
(force-mode-line-update)
(narrow-to-region obeg oend)
(setq buffer-read-only ordonly)
(goto-char opoint)
(set-buffer obuf))))
(defun comint-get-old-input-default () (defun comint-get-old-input-default ()
"Default for comint-get-old-input. "Default for comint-get-old-input.
Take the current line, and discard any initial text matching Take the current line, and discard any initial text matching