diff options
author | Richard M. Stallman <[email protected]> | 1993-05-26 17:03:51 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1993-05-26 17:03:51 +0000 |
commit | afa721bf351ebaeec74621f8eabc337c7e068883 (patch) | |
tree | 5c7f0914a41bc7935bf67f655a4bdb253eb72954 /lisp/comint.el | |
parent | aa5f883618cf56bdb87fbb433792e1da36c978ef (diff) |
(comint-filter): Restore buffer-read-only in proper buffer.
Diffstat (limited to 'lisp/comint.el')
-rw-r--r-- | lisp/comint.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 0d49cba559..bb20f2ab57 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -651,13 +651,11 @@ Similarly for Soar, Scheme, etc." ;; when output is inserted. (defun comint-filter (process string) (let ((obuf (current-buffer)) - ordonly opoint obeg oend) (set-buffer (process-buffer process)) (setq opoint (point)) (setq obeg (point-min)) (setq oend (point-max)) - (setq ordonly buffer-read-only) (let ((buffer-read-only nil) (nchars (length string))) (widen) @@ -677,12 +675,11 @@ Similarly for Soar, Scheme, etc." (set-marker comint-last-input-end (- comint-last-input-end nchars))) (set-marker (process-mark process) (point) nil) - (force-mode-line-update) + (force-mode-line-update)) - (narrow-to-region obeg oend) - (setq buffer-read-only ordonly) - (goto-char opoint) - (set-buffer obuf)))) + (narrow-to-region obeg oend) + (goto-char opoint) + (set-buffer obuf))) (defun comint-get-old-input-default () "Default for comint-get-old-input. |