mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(comint-filter): Restore buffer-read-only in proper buffer.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-05-26 17:03:51 +00:00
parent aa5f883618
commit afa721bf35
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/comint.el
View File

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