From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 3 Feb 2005 06:49:18 +0000 (+0000)
Subject: (hi-lock-mode): Turning on Hi-Lock turns on Font-Lock.
X-Git-Tag: ttn-vms-21-2-B4~2460
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=048e6895c62b338e5f80d84cd4a75cfb7e98bf88;p=emacs.git

(hi-lock-mode): Turning on Hi-Lock turns on Font-Lock.
---

diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 99eeb698171..81c7296760f 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -294,6 +294,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-hooks '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)))
+      (unless font-lock-mode
+	(font-lock-mode 1))
       (define-key-after menu-bar-edit-menu [hi-lock]
         (cons "Regexp Highlighting" hi-lock-menu))
       (dolist (buffer (buffer-list))