# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1227305862 0
# Node ID 46cd7381c2ff036f1eea61ad49abff1e4e4ef5f0
# Parent  042c1d530bbd367c8062e04f49009d07b6a4c884
(tcl-filter): Don't forcibly move point.

diff -r 042c1d530bbd -r 46cd7381c2ff lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 21 20:40:08 2008 +0000
+++ b/lisp/ChangeLog	Fri Nov 21 22:17:42 2008 +0000
@@ -1,3 +1,7 @@
+2008-11-21  Ivan Shmakov  <oneingray@gmail.com>  (tiny change)
+
+	* progmodes/tcl.el (tcl-filter): Don't forcibly move point.
+
 2008-11-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* international/quail.el (quail-indent-to): New function.
diff -r 042c1d530bbd -r 46cd7381c2ff lisp/progmodes/tcl.el
--- 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)