Function: tcl-filter

tcl-filter is a byte-compiled function defined in tcl.el.gz.

Signature

(tcl-filter PROC STRING)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/tcl.el.gz
(defun tcl-filter (proc string)
  (let ((inhibit-quit t))               ;FIXME: Isn't that redundant?
    (with-current-buffer (process-buffer proc)
      ;; Delete prompt if requested.
      (when (marker-buffer inferior-tcl-delete-prompt-marker)
	(let ((inhibit-read-only t))
	  (delete-region (process-mark proc) inferior-tcl-delete-prompt-marker))
        (set-marker inferior-tcl-delete-prompt-marker nil))))
  (comint-output-filter proc string))