Patch for lisp/autorevert.el

Patch for lisp/autorevert.el

[Denis Bueno]

I would expect `auto-revert-tail-mode' to run `after-revert-hook'
after it reverts the buffer, on an append. Currently it doesn't. The
patch I've included [1] fixes that.

Would anyone consider installing this?

I use it to run the following hook, in my .emacs:

;; In auto-revert mode, after reverting, if font-lock is turned on,
;; fontify the buffer. I intend for this to re-fontify my buffers when they
;; revert and I'm using hi-lock-mode.
(require 'autorevert)
(add-hook 'after-revert-hook
          (lambda ()
            (if (and font-lock-mode
                     (boundp 'hi-lock-mode)
                     hi-lock-mode)
                (progn
                  (message "Re-fontifying buffer...")
                  (font-lock-fontify-buffer)))))


This keeps highlighting terms as they get appended to a log file being
tailed by `auto-revert-tail-mode'.

-Denis

[1]
$ cdiff lisp/autorevert.el
Index: lisp/autorevert.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/autorevert.el,v
retrieving revision 1.55
diff -u -r1.55 autorevert.el
--- lisp/autorevert.el  6 May 2006 14:38:07 -0000       1.55
+++ lisp/autorevert.el  28 Nov 2006 00:24:29 -0000
@@ -457,6 +457,7 @@
        (save-excursion
          (goto-char (point-max))
          (insert-file-contents file nil auto-revert-tail-pos size)))
+      (run-mode-hooks 'after-revert-hook)
       (undo-boundary)
       (setq auto-revert-tail-pos size)
       (set-buffer-modified-p modified)))