diff options
| -rw-r--r-- | lisp/hi-lock.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index 63f7611bd52..8d565ab61a8 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -84,9 +84,10 @@ (eval-and-compile (require 'font-lock)) -(defgroup hi-lock-interactive-text-highlighting nil +(defgroup hi-lock nil "Interactively add and remove font-lock patterns for highlighting text." - :group 'faces) + :link '(custom-manual "(emacs)Highlight Interactively") + :group 'font-lock) ;;;###autoload (defcustom hi-lock-mode nil @@ -95,7 +96,7 @@ (hi-lock-mode (or value 0))) :initialize 'custom-initialize-default :type 'boolean - :group 'hi-lock-interactive-text-highlighting + :group 'hi-lock :require 'hi-lock) (defcustom hi-lock-file-patterns-range 10000 @@ -104,7 +105,7 @@ When a file is visited and hi-lock mode is on patterns starting up to this limit are added to font-lock's patterns. See documentation of functions `hi-lock-mode' and `hi-lock-find-patterns'." :type 'integer - :group 'hi-lock-interactive-text-highlighting) + :group 'hi-lock) (defcustom hi-lock-exclude-modes '(rmail-mode mime/viewer-mode gnus-article-mode) @@ -112,12 +113,13 @@ of functions `hi-lock-mode' and `hi-lock-find-patterns'." For security reasons since font lock patterns can specify function calls." :type '(repeat symbol) - :group 'hi-lock-interactive-text-highlighting) + :group 'hi-lock) (defgroup hi-lock-faces nil "Faces for hi-lock." - :group 'hi-lock-interactive-text-highlighting) + :group 'hi-lock + :group 'faces) (defface hi-yellow '((((min-colors 88) (background dark)) |