diff options
| author | Juri Linkov | 2005-11-17 07:21:54 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-11-17 07:21:54 +0000 |
| commit | f43eaaefc8b1b475e67bbaece7ee9044fd43e7f1 (patch) | |
| tree | 8594d8d3f7767133073da08ac0725c3a97a957f8 /lisp | |
| parent | d69ab4ba1fd07e090e854f34623743362bf4ed18 (diff) | |
| download | emacs-f43eaaefc8b1b475e67bbaece7ee9044fd43e7f1.tar.gz emacs-f43eaaefc8b1b475e67bbaece7ee9044fd43e7f1.zip | |
(hi-lock): Rename this defgroup from
`hi-lock-interactive-text-highlighting'. Change parent group from
`faces' to `font-lock'. Add link to the manual.
(hi-lock-mode, hi-lock-file-patterns-range)
(hi-lock-exclude-modes, hi-lock-faces): Rename :group from
`hi-lock-interactive-text-highlighting' to `hi-lock'.
(hi-lock-faces): Add :group `faces'.
Diffstat (limited to 'lisp')
| -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 @@ | |||
| 84 | (eval-and-compile | 84 | (eval-and-compile |
| 85 | (require 'font-lock)) | 85 | (require 'font-lock)) |
| 86 | 86 | ||
| 87 | (defgroup hi-lock-interactive-text-highlighting nil | 87 | (defgroup hi-lock nil |
| 88 | "Interactively add and remove font-lock patterns for highlighting text." | 88 | "Interactively add and remove font-lock patterns for highlighting text." |
| 89 | :group 'faces) | 89 | :link '(custom-manual "(emacs)Highlight Interactively") |
| 90 | :group 'font-lock) | ||
| 90 | 91 | ||
| 91 | ;;;###autoload | 92 | ;;;###autoload |
| 92 | (defcustom hi-lock-mode nil | 93 | (defcustom hi-lock-mode nil |
| @@ -95,7 +96,7 @@ | |||
| 95 | (hi-lock-mode (or value 0))) | 96 | (hi-lock-mode (or value 0))) |
| 96 | :initialize 'custom-initialize-default | 97 | :initialize 'custom-initialize-default |
| 97 | :type 'boolean | 98 | :type 'boolean |
| 98 | :group 'hi-lock-interactive-text-highlighting | 99 | :group 'hi-lock |
| 99 | :require 'hi-lock) | 100 | :require 'hi-lock) |
| 100 | 101 | ||
| 101 | (defcustom hi-lock-file-patterns-range 10000 | 102 | (defcustom hi-lock-file-patterns-range 10000 |
| @@ -104,7 +105,7 @@ When a file is visited and hi-lock mode is on patterns starting | |||
| 104 | up to this limit are added to font-lock's patterns. See documentation | 105 | up to this limit are added to font-lock's patterns. See documentation |
| 105 | of functions `hi-lock-mode' and `hi-lock-find-patterns'." | 106 | of functions `hi-lock-mode' and `hi-lock-find-patterns'." |
| 106 | :type 'integer | 107 | :type 'integer |
| 107 | :group 'hi-lock-interactive-text-highlighting) | 108 | :group 'hi-lock) |
| 108 | 109 | ||
| 109 | (defcustom hi-lock-exclude-modes | 110 | (defcustom hi-lock-exclude-modes |
| 110 | '(rmail-mode mime/viewer-mode gnus-article-mode) | 111 | '(rmail-mode mime/viewer-mode gnus-article-mode) |
| @@ -112,12 +113,13 @@ of functions `hi-lock-mode' and `hi-lock-find-patterns'." | |||
| 112 | For security reasons since font lock patterns can specify function | 113 | For security reasons since font lock patterns can specify function |
| 113 | calls." | 114 | calls." |
| 114 | :type '(repeat symbol) | 115 | :type '(repeat symbol) |
| 115 | :group 'hi-lock-interactive-text-highlighting) | 116 | :group 'hi-lock) |
| 116 | 117 | ||
| 117 | 118 | ||
| 118 | (defgroup hi-lock-faces nil | 119 | (defgroup hi-lock-faces nil |
| 119 | "Faces for hi-lock." | 120 | "Faces for hi-lock." |
| 120 | :group 'hi-lock-interactive-text-highlighting) | 121 | :group 'hi-lock |
| 122 | :group 'faces) | ||
| 121 | 123 | ||
| 122 | (defface hi-yellow | 124 | (defface hi-yellow |
| 123 | '((((min-colors 88) (background dark)) | 125 | '((((min-colors 88) (background dark)) |