mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2008-11-21 22:17:42 +00:00
parent 94579c02be
commit 723d286fb8
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

10
lisp/progmodes/tcl.el
View File

@ -1029,14 +1029,12 @@ Returns nil if line starts inside a string, t if in a comment."
(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)