From 048e6895c62b338e5f80d84cd4a75cfb7e98bf88 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 3 Feb 2005 06:49:18 +0000 Subject: [PATCH] (hi-lock-mode): Turning on Hi-Lock turns on Font-Lock. --- lisp/hi-lock.el | 4 ++++ 1 file changed, 4 insertions(+) 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)) -- 2.39.5