Mercurial > emacs
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