changeset 47628:e44b96f09893

(follow-generic-filter): Simply bind deactivate-mark. Bind inhibit-read-only; don't mess with buffer-read-only.
author Richard M. Stallman <rms@gnu.org>
date Thu, 26 Sep 2002 21:57:17 +0000
parents 33bcb75e91e8
children 392820ae24ce
files lisp/follow.el
diffstat 1 files changed, 3 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/follow.el	Thu Sep 26 21:57:00 2002 +0000
+++ b/lisp/follow.el	Thu Sep 26 21:57:17 2002 +0000
@@ -2038,24 +2038,15 @@
 	(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