From 9e4b54a08477570d9e00f3a3f7de977e5dd6f36c Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Wed, 6 Apr 2005 08:44:14 +0000 Subject: [PATCH] (change-log-font-lock-keywords): Complete 2005-04-03 change. --- lisp/ChangeLog | 3 +++ lisp/add-log.el | 12 ++++++------ 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4f2fc98e54a..42126072165 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -6,6 +6,9 @@ 2005-04-06 Lute Kamstra + * add-log.el (change-log-font-lock-keywords): Complete 2005-04-03 + change. + * emacs-lisp/copyright.el (copyright-update-year): Replace the right subexpression. Suggested by Jay Bingham . diff --git a/lisp/add-log.el b/lisp/add-log.el index 126e7ecbaa5..2714df554b8 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -225,8 +225,8 @@ Note: The search is conducted only within 10%, at the beginning of the file." (2 'change-log-email-face))) ;; ;; File names. - ("^\\(?: +\\|\t\\)\\* \\([^ ,:([\n]+\\)" - (1 'change-log-file-face) + ("^\\( +\\|\t\\)\\* \\([^ ,:([\n]+\\)" + (2 'change-log-file-face) ;; Possibly further names in a list: ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face)) ;; Possibly a parenthesized list of names: @@ -236,8 +236,8 @@ Note: The search is conducted only within 10%, at the beginning of the file." nil nil (1 'change-log-list-face))) ;; ;; Function or variable names. - ("^\t(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" - (1 'change-log-list-face) + ("^\\( +\\|\t\\)(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" + (2 'change-log-list-face) ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil (1 'change-log-list-face))) ;; @@ -250,8 +250,8 @@ Note: The search is conducted only within 10%, at the beginning of the file." ;; Acknowledgements. ;; Don't include plain "From" because that is vague; ;; we want to encourage people to say something more specific. - ("\\(^\t\\| \\)\\(Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)" - 2 'change-log-acknowledgement-face)) + ("\\(^\\( +\\|\t\\)\\| \\)\\(Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)" + 3 'change-log-acknowledgement-face)) "Additional expressions to highlight in Change Log mode.") (defvar change-log-mode-map -- 2.39.2