mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(auto-revert-tail-handler): Use inhibit-read-only.

Browse Source 
Run before-revert-hook.  Suggested by Denis Bueno <denbuen@sandia.gov>.
Use run-hooks rather than run-mode-hooks.
This commit is contained in:
Stefan Monnier 2007-07-06 12:58:16 +00:00
parent 9ae06d96f6
commit ddd7c23854
2 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2007-07-06 Stefan Monnier <monnier@iro.umontreal.ca>
* autorevert.el (auto-revert-tail-handler): Use inhibit-read-only.
Run before-revert-hook. Suggested by Denis Bueno <denbuen@sandia.gov>.
Use run-hooks rather than run-mode-hooks.
2007-07-05 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc-comb.el (math-random-digit): Rename to
@ -16,8 +22,8 @@
2007-07-05 Chong Yidong <cyd@stupidchicken.com>
* wid-edit.el (widget-documentation-string-value-create): Insert
indentation spaces.
* wid-edit.el (widget-documentation-string-value-create):
Insert indentation spaces.
2007-07-05 Thien-Thi Nguyen <ttn@gnuvola.org>

11
lisp/autorevert.el
View File

@ -447,20 +447,21 @@ This is an internal function used by Auto-Revert Mode."
(defun auto-revert-tail-handler ()
(let ((size (nth 7 (file-attributes buffer-file-name)))
(modified (buffer-modified-p))
buffer-read-only ; ignore
(inhibit-read-only t) ; Ignore.
(file buffer-file-name)
buffer-file-name) ; ignore that file has changed
(buffer-file-name nil)) ; Ignore that file has changed.
(when (> size auto-revert-tail-pos)
(run-hooks 'before-revert-hook)
(undo-boundary)
(save-restriction
(widen)
(save-excursion
(goto-char (point-max))
(insert-file-contents file nil auto-revert-tail-pos size)))
(run-mode-hooks 'after-revert-hook)
(run-hooks 'after-revert-hook)
(undo-boundary)
(setq auto-revert-tail-pos size)
(set-buffer-modified-p modified)))
(restore-buffer-modified-p modified)))
(set-visited-file-modtime))
(defun auto-revert-buffers ()
@ -534,5 +535,5 @@ the timer when no buffers need to be checked."
(run-hooks 'auto-revert-load-hook)
;;; arch-tag: f6bcb07b-4841-477e-9e44-b18678e58876
;; arch-tag: f6bcb07b-4841-477e-9e44-b18678e58876
;;; autorevert.el ends here