Mercurial > emacs
changeset 29329:5b85d9e700da
(change-log-font-lock-keywords) <function>: Add
pattern for function of change.
(change-log-font-lock-keywords) <acknowledgements>: Amalgamate
acknowledgements patterns.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 31 May 2000 17:41:07 +0000 |
| parents | a55fb9812416 |
| children | 58805fa6696f |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/add-log.el Wed May 31 03:50:57 2000 +0000 +++ b/lisp/add-log.el Wed May 31 17:41:07 2000 +0000 @@ -173,11 +173,12 @@ ;; Conditionals. ("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 font-lock-variable-name-face)) ;; + ;; Function of change. + ("<\\([^>\n]+\\)>\\(:\\| (\\)" (1 font-lock-variable-name-face)) + ;; ;; Acknowledgements. - ("^\t\\(From\\|Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)" - 1 font-lock-comment-face) - (" \\(From\\|Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)" - 1 font-lock-comment-face)) + ("\\(^\t\\| \\)\\(From\\|Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)" + 2 font-lock-comment-face)) "Additional expressions to highlight in Change Log mode.") (defvar change-log-mode-map (make-sparse-keymap) @@ -536,7 +537,7 @@ t)) (defcustom add-log-current-defun-header-regexp - "^\\([A-Z][A-Z_ ]*[A-Z_]\\|[-_a-zA-Z]+\\)[ \t]*[:=]" + "^\\([[:upper:]][[:upper:]_ ]*[[:upper:]_]\\|[-_[:alpha:]]+\\)[ \t]*[:=]" "*Heuristic regexp used by `add-log-current-defun' for unknown major modes." :type 'regexp :group 'change-log)