# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1206921854 0
# Node ID d3e8f7c16304d5fe0b11a4c0b1db601289d50769
# Parent  57408ba5f8d3564ae8bb20b81d978cf50aff5444
(hi-lock-mode): Fix typos in docstring.
(hi-lock-unload-function): New function.

diff -r 57408ba5f8d3 -r d3e8f7c16304 lisp/hi-lock.el
--- a/lisp/hi-lock.el	Sun Mar 30 18:08:46 2008 +0000
+++ b/lisp/hi-lock.el	Mon Mar 31 00:04:14 2008 +0000
@@ -310,8 +310,8 @@
   be read the next time file is loaded or when the \\[hi-lock-find-patterns] command
   is issued.  The inserted regexps are in the form of font lock keywords.
   (See `font-lock-keywords'.)  They may be edited and re-loaded with \\[hi-lock-find-patterns],
-  any valid `font-lock-keywords' form is acceptable. When a file is
-  loaded the patterns are read if `hi-lock-file-patterns-policy is
+  any valid `font-lock-keywords' form is acceptable.  When a file is
+  loaded the patterns are read if `hi-lock-file-patterns-policy' is
   'ask and the user responds y to the prompt, or if
   `hi-lock-file-patterns-policy' is bound to a function and that
   function returns t.
@@ -659,6 +659,12 @@
                hi-lock-string-serialize-hash)
       hi-lock-string-serialize-serial)))
 
+(defun hi-lock-unload-function ()
+  "Unload the Hi-Lock library."
+  (global-hi-lock-mode -1)
+  ;; continue standard unloading
+  nil)
+
 (provide 'hi-lock)
 
 ;; arch-tag: d2e8fd07-4cc9-4c6f-a200-1e729bc54066