mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(change-log-font-lock-keywords): Complete 2005-04-03 change.

Browse Source
This commit is contained in:
Lute Kamstra 2005-04-06 08:44:14 +00:00
parent 2835df5f8b
commit 9e4b54a084
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -6,6 +6,9 @@
2005-04-06 Lute Kamstra <lute@gnu.org>
* 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 <jay.bingham@hp.com>.

12
lisp/add-log.el
View File

@ -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