166 |
:type '(repeat regexp) |
:type '(repeat regexp) |
167 |
:group 'change-log) |
:group 'change-log) |
168 |
|
|
169 |
(defface change-log-date-face |
(defface change-log-date |
170 |
'((t (:inherit font-lock-string-face))) |
'((t (:inherit font-lock-string-face))) |
171 |
"Face used to highlight dates in date lines." |
"Face used to highlight dates in date lines." |
172 |
:version "21.1" |
:version "21.1" |
173 |
:group 'change-log) |
:group 'change-log) |
174 |
|
;; backward-compatibility alias |
175 |
|
(put 'change-log-date-face 'face-alias 'change-log-date) |
176 |
|
|
177 |
(defface change-log-name-face |
(defface change-log-name |
178 |
'((t (:inherit font-lock-constant-face))) |
'((t (:inherit font-lock-constant-face))) |
179 |
"Face for highlighting author names." |
"Face for highlighting author names." |
180 |
:version "21.1" |
:version "21.1" |
181 |
:group 'change-log) |
:group 'change-log) |
182 |
|
;; backward-compatibility alias |
183 |
|
(put 'change-log-name-face 'face-alias 'change-log-name) |
184 |
|
|
185 |
(defface change-log-email-face |
(defface change-log-email |
186 |
'((t (:inherit font-lock-variable-name-face))) |
'((t (:inherit font-lock-variable-name-face))) |
187 |
"Face for highlighting author email addresses." |
"Face for highlighting author email addresses." |
188 |
:version "21.1" |
:version "21.1" |
189 |
:group 'change-log) |
:group 'change-log) |
190 |
|
;; backward-compatibility alias |
191 |
|
(put 'change-log-email-face 'face-alias 'change-log-email) |
192 |
|
|
193 |
(defface change-log-file-face |
(defface change-log-file |
194 |
'((t (:inherit font-lock-function-name-face))) |
'((t (:inherit font-lock-function-name-face))) |
195 |
"Face for highlighting file names." |
"Face for highlighting file names." |
196 |
:version "21.1" |
:version "21.1" |
197 |
:group 'change-log) |
:group 'change-log) |
198 |
|
;; backward-compatibility alias |
199 |
|
(put 'change-log-file-face 'face-alias 'change-log-file) |
200 |
|
|
201 |
(defface change-log-list-face |
(defface change-log-list |
202 |
'((t (:inherit font-lock-keyword-face))) |
'((t (:inherit font-lock-keyword-face))) |
203 |
"Face for highlighting parenthesized lists of functions or variables." |
"Face for highlighting parenthesized lists of functions or variables." |
204 |
:version "21.1" |
:version "21.1" |
205 |
:group 'change-log) |
:group 'change-log) |
206 |
|
;; backward-compatibility alias |
207 |
|
(put 'change-log-list-face 'face-alias 'change-log-list) |
208 |
|
|
209 |
(defface change-log-conditionals-face |
(defface change-log-conditionals |
210 |
'((t (:inherit font-lock-variable-name-face))) |
'((t (:inherit font-lock-variable-name-face))) |
211 |
"Face for highlighting conditionals of the form `[...]'." |
"Face for highlighting conditionals of the form `[...]'." |
212 |
:version "21.1" |
:version "21.1" |
213 |
:group 'change-log) |
:group 'change-log) |
214 |
|
;; backward-compatibility alias |
215 |
|
(put 'change-log-conditionals-face 'face-alias 'change-log-conditionals) |
216 |
|
|
217 |
(defface change-log-function-face |
(defface change-log-function |
218 |
'((t (:inherit font-lock-variable-name-face))) |
'((t (:inherit font-lock-variable-name-face))) |
219 |
"Face for highlighting items of the form `<....>'." |
"Face for highlighting items of the form `<....>'." |
220 |
:version "21.1" |
:version "21.1" |
221 |
:group 'change-log) |
:group 'change-log) |
222 |
|
;; backward-compatibility alias |
223 |
|
(put 'change-log-function-face 'face-alias 'change-log-function) |
224 |
|
|
225 |
(defface change-log-acknowledgement-face |
(defface change-log-acknowledgement |
226 |
'((t (:inherit font-lock-comment-face))) |
'((t (:inherit font-lock-comment-face))) |
227 |
"Face for highlighting acknowledgments." |
"Face for highlighting acknowledgments." |
228 |
:version "21.1" |
:version "21.1" |
229 |
:group 'change-log) |
:group 'change-log) |
230 |
|
;; backward-compatibility alias |
231 |
|
(put 'change-log-acknowledgement-face 'face-alias 'change-log-acknowledgement) |
232 |
|
|
233 |
(defvar change-log-font-lock-keywords |
(defvar change-log-font-lock-keywords |
234 |
'(;; |
'(;; |
235 |
;; Date lines, new and old styles. |
;; Date lines, new and old styles. |
236 |
("^\\sw.........[0-9:+ ]*" |
("^\\sw.........[0-9:+ ]*" |
237 |
(0 'change-log-date-face) |
(0 'change-log-date) |
238 |
;; Name and e-mail; some people put e-mail in parens, not angles. |
;; Name and e-mail; some people put e-mail in parens, not angles. |
239 |
("\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil |
("\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil |
240 |
(1 'change-log-name-face) |
(1 'change-log-name) |
241 |
(2 'change-log-email-face))) |
(2 'change-log-email))) |
242 |
;; |
;; |
243 |
;; File names. |
;; File names. |
244 |
("^\\( +\\|\t\\)\\* \\([^ ,:([\n]+\\)" |
("^\\( +\\|\t\\)\\* \\([^ ,:([\n]+\\)" |
245 |
(2 'change-log-file-face) |
(2 'change-log-file) |
246 |
;; Possibly further names in a list: |
;; Possibly further names in a list: |
247 |
("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face)) |
("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file)) |
248 |
;; Possibly a parenthesized list of names: |
;; Possibly a parenthesized list of names: |
249 |
("\\= (\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" |
("\\= (\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" |
250 |
nil nil (1 'change-log-list-face)) |
nil nil (1 'change-log-list)) |
251 |
("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" |
("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" |
252 |
nil nil (1 'change-log-list-face))) |
nil nil (1 'change-log-list))) |
253 |
;; |
;; |
254 |
;; Function or variable names. |
;; Function or variable names. |
255 |
("^\\( +\\|\t\\)(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" |
("^\\( +\\|\t\\)(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" |
256 |
(2 'change-log-list-face) |
(2 'change-log-list) |
257 |
("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil |
("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil |
258 |
(1 'change-log-list-face))) |
(1 'change-log-list))) |
259 |
;; |
;; |
260 |
;; Conditionals. |
;; Conditionals. |
261 |
("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 'change-log-conditionals-face)) |
("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 'change-log-conditionals)) |
262 |
;; |
;; |
263 |
;; Function of change. |
;; Function of change. |
264 |
("<\\([^>\n]+\\)>\\(:\\| (\\)" (1 'change-log-function-face)) |
("<\\([^>\n]+\\)>\\(:\\| (\\)" (1 'change-log-function)) |
265 |
;; |
;; |
266 |
;; Acknowledgements. |
;; Acknowledgements. |
267 |
;; Don't include plain "From" because that is vague; |
;; Don't include plain "From" because that is vague; |
270 |
;; is to put the name of the author of the changes at the top |
;; is to put the name of the author of the changes at the top |
271 |
;; of the change log entry. |
;; of the change log entry. |
272 |
("\\(^\\( +\\|\t\\)\\| \\)\\(Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)" |
("\\(^\\( +\\|\t\\)\\| \\)\\(Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)" |
273 |
3 'change-log-acknowledgement-face)) |
3 'change-log-acknowledgement)) |
274 |
"Additional expressions to highlight in Change Log mode.") |
"Additional expressions to highlight in Change Log mode.") |
275 |
|
|
276 |
(defvar change-log-mode-map |
(defvar change-log-mode-map |