# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 959794867 0
# Node ID 5b85d9e700da8a031728a649b314d03ca17d6a66
# Parent  a55fb98124168d0a10debfc49660460cee414912
(change-log-font-lock-keywords) <function>: Add
pattern for function of change.
(change-log-font-lock-keywords) <acknowledgements>: Amalgamate
acknowledgements patterns.

diff -r a55fb9812416 -r 5b85d9e700da lisp/add-log.el
--- 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)