[Emacs-diffs] emacs/lisp ChangeLog progmodes/tcl.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/11/21 22:17:47

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : tcl.el 

Log message:
        (tcl-filter): Don't forcibly move point.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.14825&r2=1.14826
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/tcl.el?cvsroot=emacs&r1=1.93&r2=1.94

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.14825
retrieving revision 1.14826
diff -u -b -r1.14825 -r1.14826
--- ChangeLog   21 Nov 2008 20:40:08 -0000      1.14825
+++ ChangeLog   21 Nov 2008 22:17:42 -0000      1.14826
@@ -1,3 +1,7 @@
+2008-11-21  Ivan Shmakov  <address@hidden>  (tiny change)
+
+       * progmodes/tcl.el (tcl-filter): Don't forcibly move point.
+
 2008-11-21  Stefan Monnier  <address@hidden>
 
        * international/quail.el (quail-indent-to): New function.

Index: progmodes/tcl.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/tcl.el,v
retrieving revision 1.93
retrieving revision 1.94
diff -u -b -r1.93 -r1.94
--- progmodes/tcl.el    6 May 2008 07:18:37 -0000       1.93
+++ progmodes/tcl.el    21 Nov 2008 22:17:47 -0000      1.94
@@ -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)