* lisp/hi-lock.el (hi-lock-mode): Cleanup after revert-buffer.

Fixes: debbugs:13891

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ced7672ef9992ac2753b5cdf1594b127509adde9..9a4712527976a355f0735f6ec20006b0cef1414d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-03-31  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * hi-lock.el (hi-lock-mode): Cleanup after revert-buffer (bug#13891).
+
 2013-03-30  Fabián Ezequiel Gallina  <fabian@anue.biz>
 
        Un-indent after "pass" and "return" statements (Bug#13888)

diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 38e5e8acb15a61b9ecd6b6dd8d271ce244d4cc6f..e2dc4eac67b4e6a1398bf71427c51a52b7df2042 100644 (file)
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -389,7 +389,9 @@ versions before 22 use the following in your init file:
        (define-key-after menu-bar-edit-menu [hi-lock]
          (cons "Regexp Highlighting" hi-lock-menu))
        (hi-lock-find-patterns)
-       (add-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook nil t))
+        (add-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook nil t)
+        ;; Remove regexps from font-lock-keywords (bug#13891).
+       (add-hook 'change-major-mode-hook (lambda () (hi-lock-mode -1)) nil t))
     ;; Turned off.
     (when (or hi-lock-interactive-patterns
              hi-lock-file-patterns)