Commit 669a535c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(comint-send-input): Run comint-output-filter-functions

only if process is using comint-output-filter as its filter.
parent 96e19e26
......@@ -1102,10 +1102,11 @@ Similarly for Soar, Scheme, etc."
(set-marker (process-mark proc) (point))
;; A kludge to prevent the delay between insert and process output
;; affecting the display. A case for a comint-send-input-hook?
(let ((functions comint-output-filter-functions))
(while functions
(funcall (car functions) (concat input "\n"))
(setq functions (cdr functions))))))))
(if (eq (process-filter proc) 'comint-output-filter)
(let ((functions comint-output-filter-functions))
(while functions
(funcall (car functions) (concat input "\n"))
(setq functions (cdr functions)))))))))
;; The purpose of using this filter for comint processes
;; is to keep comint-last-input-end from moving forward
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment