84 |
(eval-and-compile |
(eval-and-compile |
85 |
(require 'font-lock)) |
(require 'font-lock)) |
86 |
|
|
87 |
(defgroup hi-lock-interactive-text-highlighting nil |
(defgroup hi-lock nil |
88 |
"Interactively add and remove font-lock patterns for highlighting text." |
"Interactively add and remove font-lock patterns for highlighting text." |
89 |
:group 'faces) |
:link '(custom-manual "(emacs)Highlight Interactively") |
90 |
|
:group 'font-lock) |
91 |
|
|
92 |
;;;###autoload |
;;;###autoload |
93 |
(defcustom hi-lock-mode nil |
(defcustom hi-lock-mode nil |
96 |
(hi-lock-mode (or value 0))) |
(hi-lock-mode (or value 0))) |
97 |
:initialize 'custom-initialize-default |
:initialize 'custom-initialize-default |
98 |
:type 'boolean |
:type 'boolean |
99 |
:group 'hi-lock-interactive-text-highlighting |
:group 'hi-lock |
100 |
:require 'hi-lock) |
:require 'hi-lock) |
101 |
|
|
102 |
(defcustom hi-lock-file-patterns-range 10000 |
(defcustom hi-lock-file-patterns-range 10000 |
105 |
up to this limit are added to font-lock's patterns. See documentation |
up to this limit are added to font-lock's patterns. See documentation |
106 |
of functions `hi-lock-mode' and `hi-lock-find-patterns'." |
of functions `hi-lock-mode' and `hi-lock-find-patterns'." |
107 |
:type 'integer |
:type 'integer |
108 |
:group 'hi-lock-interactive-text-highlighting) |
:group 'hi-lock) |
109 |
|
|
110 |
(defcustom hi-lock-exclude-modes |
(defcustom hi-lock-exclude-modes |
111 |
'(rmail-mode mime/viewer-mode gnus-article-mode) |
'(rmail-mode mime/viewer-mode gnus-article-mode) |
113 |
For security reasons since font lock patterns can specify function |
For security reasons since font lock patterns can specify function |
114 |
calls." |
calls." |
115 |
:type '(repeat symbol) |
:type '(repeat symbol) |
116 |
:group 'hi-lock-interactive-text-highlighting) |
:group 'hi-lock) |
117 |
|
|
118 |
|
|
119 |
(defgroup hi-lock-faces nil |
(defgroup hi-lock-faces nil |
120 |
"Faces for hi-lock." |
"Faces for hi-lock." |
121 |
:group 'hi-lock-interactive-text-highlighting) |
:group 'hi-lock |
122 |
|
:group 'faces) |
123 |
|
|
124 |
(defface hi-yellow |
(defface hi-yellow |
125 |
'((((min-colors 88) (background dark)) |
'((((min-colors 88) (background dark)) |