diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-10 16:08:48 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-10 16:08:48 +0000 |
| commit | a1562258dcd1634303dae465232d87c6505d26d1 (patch) | |
| tree | 914320d89d7de21b7eb0895baea7336fca42dd25 /lisp/net/telnet.el | |
| parent | 12b139e9a83173b9461e22cc908721b2b3a04245 (diff) | |
| download | emacs-a1562258dcd1634303dae465232d87c6505d26d1.tar.gz | |
* window.c (Vwindow_point_insertion_type): New var.
(set_window_buffer): Use it.
(syms_of_window): Init and export it to Lisp.
* progmodes/compile.el (compilation-mode):
Set window-point-insertion-type.
(compilation-filter): Don't use insert-before-markers any more.
* emacs-lisp/trace.el (trace-make-advice):
Set window-point-insertion-type in the trace buffer.
* startup.el (normal-top-level): Set window-point-insertion-type in
*Messages*.
* net/telnet.el (telnet-mode): Set window-point-insertion-type.
(telnet-filter): Don't use insert-before-markers any more.
* comint.el (comint-mode): Set window-point-insertion-type.
(comint-output-filter): Don't use insert-before-markers any more.
* button.el (make-text-button): Allow `start' to be a string.
Diffstat (limited to 'lisp/net/telnet.el')
| -rw-r--r-- | lisp/net/telnet.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/net/telnet.el b/lisp/net/telnet.el index 3a0405b9fb3..a4bd46bca4c 100644 --- a/lisp/net/telnet.el +++ b/lisp/net/telnet.el @@ -159,8 +159,7 @@ rejecting one login and prompting again for a username and password.") (comint-send-string proc telnet-new-line))) (defun telnet-filter (proc string) - (save-excursion - (set-buffer (process-buffer proc)) + (with-current-buffer (process-buffer proc) (let* ((last-insertion (marker-position (process-mark proc))) (delta (- (point) last-insertion)) (ie (and comint-last-input-end @@ -168,7 +167,7 @@ rejecting one login and prompting again for a username and password.") (w (get-buffer-window (current-buffer))) (ws (and w (window-start w)))) (goto-char last-insertion) - (insert-before-markers string) + (insert string) (set-marker comint-last-output-start last-insertion) (set-marker (process-mark proc) (point)) (if ws (set-window-start w ws t)) @@ -245,6 +244,7 @@ It has most of the same commands as comint-mode. There is a variable ``telnet-interrupt-string'' which is the character sent to try to stop execution of a job on the remote host. Data is sent to the remote host when RET is typed." + (set (make-local-variable 'window-point-insertion-type) t) (set (make-local-variable 'comint-prompt-regexp) telnet-prompt-pattern) (set (make-local-variable 'comint-use-prompt-regexp) t)) |