Re: address@hidden: Patch enabling after-revert-hook for auto-revert-tail-mode]

[Chong Yidong]

Richard Stallman <address@hidden> writes:

> Anders Lindgren did not respond.  Would someone please check this patch?
> If it seems correct, please install it.
>
> Please ack.

Seems correct; I checked it in.

> From: "Denis Bueno" <address@hidden>
> Subject: Patch enabling after-revert-hook for auto-revert-tail-mode
> To: address@hidden
>
> Dear emacs-devel:
>
> A while back I wanted two things to interact the way I expected:
> hi-lock-mode and auto-revert-tail-mode. I wanted terms highlighted by
> hi-lock-mode to continue to be highlighted after a revert by
> auto-revert-tail-mode. But my hook (which refontifies the buffer)
> wasn't getting executed after a revert.
>
> The reason is, of course, obvious: after-revert-hook wasn't called. My
> patch calls it  at the most obvious place I could think of.
>
> It's a one-line change -- not much can go wrong, I think. I have been
> using this change for many months now (and have recompiled emacs 6-8
> times during that period). Please consider applying it. It is useful,
> and seems like this is the way it should be  -- after-revert-hook
> should happen after reverting the tail of the file.
>
> - -Denis
>
> Index: lisp/autorevert.el
> ===================================================================
> RCS file: /sources/emacs/emacs/lisp/autorevert.el,v
> retrieving revision 1.56
> diff -u -r1.56 autorevert.el
> - --- lisp/autorevert.el  21 Jan 2007 03:53:12 -0000      1.56
> +++ lisp/autorevert.el  8 Mar 2007 01:37:11 -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)))
>
>
> _______________________________________________
> Emacs-devel mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-devel
> ----------
>
>
>
>
> _______________________________________________
> Emacs-devel mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-devel