mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(follow-generic-filter): Simply bind deactivate-mark.

Browse Source 
Bind inhibit-read-only; don't mess with buffer-read-only.
This commit is contained in:
Richard M. Stallman 2002-09-26 21:57:17 +00:00
parent fe80eaef30
commit bbf04be416
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/follow.el
View File

@ -2038,24 +2038,15 @@ report this using the `follow-submit-feedback' function."
(if (not (marker-buffer (process-mark proc)))
(set-marker (process-mark proc) (point-max)))
(let ((moving (= (point) (process-mark proc)))
(odeactivate (and (boundp 'deactivate-mark)
(symbol-value 'deactivate-mark)))
(old-buffer-read-only buffer-read-only))
(setq buffer-read-only nil)
deactivate-mark
(inhibit-read-only t))
(save-excursion
(goto-char (process-mark proc))
;; `insert-before-markers' just in case the users next
;; command is M-y.
(insert-before-markers output)
(set-marker (process-mark proc) (point)))
(if moving (goto-char (process-mark proc)))
(if (boundp 'deactivate-mark)
;; This could really be
;; (setq deactivate-mark odeactivate)
;; but this raises an error when compiling on XEmacs.
(funcall (symbol-function 'set)
'deactivate-mark odeactivate))
(setq buffer-read-only old-buffer-read-only)))))
(if moving (goto-char (process-mark proc)))))))
;; If we're in follow mode, do our stuff. Select a new window and
;; redisplay. (Actually, it is redundant to check `buf', but I