[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: address@hidden: Patch enabling after-revert-hook for auto-revert-tai
From: |
Chong Yidong |
Subject: |
Re: address@hidden: Patch enabling after-revert-hook for auto-revert-tail-mode] |
Date: |
Sat, 17 Mar 2007 16:38:21 -0400 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.95 (gnu/linux) |
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