Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 99775:042c1d530bbd | 99776:46cd7381c2ff |
|---|---|
| 1027 ;; work as well as I'd like it to. But I don't believe there is | 1027 ;; work as well as I'd like it to. But I don't believe there is |
| 1028 ;; anything useful that can be done. | 1028 ;; anything useful that can be done. |
| 1029 (defvar inferior-tcl-delete-prompt-marker nil) | 1029 (defvar inferior-tcl-delete-prompt-marker nil) |
| 1030 | 1030 |
| 1031 (defun tcl-filter (proc string) | 1031 (defun tcl-filter (proc string) |
| 1032 (let ((inhibit-quit t)) | 1032 (let ((inhibit-quit t)) ;FIXME: Isn't that redundant? |
| 1033 (with-current-buffer (process-buffer proc) | 1033 (with-current-buffer (process-buffer proc) |
| 1034 (goto-char (process-mark proc)) | |
| 1035 ;; Delete prompt if requested. | 1034 ;; Delete prompt if requested. |
| 1036 (if (marker-buffer inferior-tcl-delete-prompt-marker) | 1035 (when (marker-buffer inferior-tcl-delete-prompt-marker) |
| 1037 (progn | 1036 (delete-region (process-mark proc) inferior-tcl-delete-prompt-marker) |
| 1038 (delete-region (point) inferior-tcl-delete-prompt-marker) | 1037 (set-marker inferior-tcl-delete-prompt-marker nil)))) |
| 1039 (set-marker inferior-tcl-delete-prompt-marker nil))))) | |
| 1040 (comint-output-filter proc string)) | 1038 (comint-output-filter proc string)) |
| 1041 | 1039 |
| 1042 (defun tcl-send-string (proc string) | 1040 (defun tcl-send-string (proc string) |
| 1043 (with-current-buffer (process-buffer proc) | 1041 (with-current-buffer (process-buffer proc) |
| 1044 (goto-char (process-mark proc)) | 1042 (goto-char (process-mark proc)) |