225 |
(2 'change-log-email-face))) |
(2 'change-log-email-face))) |
226 |
;; |
;; |
227 |
;; File names. |
;; File names. |
228 |
("^\\(?: +\\|\t\\)\\* \\([^ ,:([\n]+\\)" |
("^\\( +\\|\t\\)\\* \\([^ ,:([\n]+\\)" |
229 |
(1 'change-log-file-face) |
(2 'change-log-file-face) |
230 |
;; Possibly further names in a list: |
;; Possibly further names in a list: |
231 |
("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face)) |
("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face)) |
232 |
;; Possibly a parenthesized list of names: |
;; Possibly a parenthesized list of names: |
236 |
nil nil (1 'change-log-list-face))) |
nil nil (1 'change-log-list-face))) |
237 |
;; |
;; |
238 |
;; Function or variable names. |
;; Function or variable names. |
239 |
("^\t(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" |
("^\\( +\\|\t\\)(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" |
240 |
(1 'change-log-list-face) |
(2 'change-log-list-face) |
241 |
("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil |
("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil |
242 |
(1 'change-log-list-face))) |
(1 'change-log-list-face))) |
243 |
;; |
;; |
250 |
;; Acknowledgements. |
;; Acknowledgements. |
251 |
;; Don't include plain "From" because that is vague; |
;; Don't include plain "From" because that is vague; |
252 |
;; we want to encourage people to say something more specific. |
;; we want to encourage people to say something more specific. |
253 |
("\\(^\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\\)\\)" |
254 |
2 'change-log-acknowledgement-face)) |
3 'change-log-acknowledgement-face)) |
255 |
"Additional expressions to highlight in Change Log mode.") |
"Additional expressions to highlight in Change Log mode.") |
256 |
|
|
257 |
(defvar change-log-mode-map |
(defvar change-log-mode-map |