* hi-lock.el (hi-lock-mode): Set the default value of

	font-lock-defaults.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7fb02fa571d3c5e87fcfa2f9ac43d817e65902e5..eca2a8f6b77525dc0dcaab7da5f7c3097b5d698b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-12  Chong Yidong  <cyd@stupidchicken.com>
+
+       * hi-lock.el (hi-lock-mode): Set the default value of
+       font-lock-defaults.
+
 2005-11-11  Luc Teirlinck  <teirllm@auburn.edu>
 
        * find-lisp.el (find-lisp-find-dired-insert-file): Pass `string'

diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 84a8cd6284ea7877c1551fc93667f4e0f2370b61..63f7611bd52b2886a57cd605dae2570c1435d6b5 100644 (file)
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -304,8 +304,10 @@ is found. A mode is excluded if it's in the list `hi-lock-exclude-modes'."
     (when (and (not hi-lock-mode-prev) hi-lock-mode)
       (add-hook 'find-file-hook 'hi-lock-find-file-hook)
       (add-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook)
-      (when (eq nil font-lock-defaults)
-       (setq font-lock-defaults '(nil)))
+      (if (null (default-value 'font-lock-defaults))
+         (setq-default font-lock-defaults '(nil)))
+      (if (null font-lock-defaults)
+         (setq font-lock-defaults '(nil)))
       (unless font-lock-mode
        (font-lock-mode 1))
       (define-key-after menu-bar-edit-menu [hi-lock]
@@ -322,6 +324,10 @@ is found. A mode is excluded if it's in the list `hi-lock-exclude-modes'."
             (setq hi-lock-interactive-patterns nil
                   hi-lock-file-patterns nil)
             (when font-lock-mode (hi-lock-refontify)))))
+
+      (let ((fld (default-value 'font-lock-defaults)))
+       (if (and fld (listp fld) (null (car fld)))
+           (setq-default font-lock-defaults (cdr fld))))
       (define-key-after menu-bar-edit-menu [hi-lock] nil)
       (remove-hook 'find-file-hook 'hi-lock-find-file-hook)
       (remove-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook))))