[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog progmodes/tcl.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog progmodes/tcl.el |
Date: |
Fri, 21 Nov 2008 22:17:48 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog progmodes/tcl.el,
Stefan Monnier <=