Mercurial > emacs
diff lisp/progmodes/tcl.el @ 99776:46cd7381c2ff
(tcl-filter): Don't forcibly move point.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 21 Nov 2008 22:17:42 +0000 |
parents | 52b7a8c22af5 |
children | a9dc0e7c3f2b |
line wrap: on
line diff
--- a/lisp/progmodes/tcl.el Fri Nov 21 20:40:08 2008 +0000 +++ b/lisp/progmodes/tcl.el Fri Nov 21 22:17:42 2008 +0000 @@ -1029,14 +1029,12 @@ (defvar inferior-tcl-delete-prompt-marker nil) (defun tcl-filter (proc string) - (let ((inhibit-quit t)) + (let ((inhibit-quit t)) ;FIXME: Isn't that redundant? (with-current-buffer (process-buffer proc) - (goto-char (process-mark proc)) ;; Delete prompt if requested. - (if (marker-buffer inferior-tcl-delete-prompt-marker) - (progn - (delete-region (point) inferior-tcl-delete-prompt-marker) - (set-marker inferior-tcl-delete-prompt-marker nil))))) + (when (marker-buffer inferior-tcl-delete-prompt-marker) + (delete-region (process-mark proc) inferior-tcl-delete-prompt-marker) + (set-marker inferior-tcl-delete-prompt-marker nil)))) (comint-output-filter proc string)) (defun tcl-send-string (proc string)