(change-log-font-lock-keywords): Recognize "Patch by".

1 files changed, 6 insertions, 6 deletions

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 6ef0347f884..31c82b4a0de 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -99,7 +99,7 @@ and `current-time-string' are two valid values."
     ("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 font-lock-variable-name-face))
     ;;
     ;; Acknowledgements.
-    ("^\t\\(From\\|Reported by\\)" 1 font-lock-comment-face)
+    ("^\t\\(From\\|Patch by\\|Reported by\\)" 1 font-lock-comment-face)
     )
   "Additional expressions to highlight in Change Log mode.")
 
@@ -143,7 +143,7 @@ If nil, use local time.")
 
 (defun change-log-name ()
   (or change-log-default-name
-      (if (eq system-type 'vax-vms) 
+      (if (eq system-type 'vax-vms)
 	  "$CHANGE_LOG$.TXT"
 	"ChangeLog")))
 
@@ -175,7 +175,7 @@ If 'change-log-default-name' is nil, behave as though it were 'ChangeLog'
 \(or whatever we use on this operating system).
 
 If 'change-log-default-name' contains a leading directory component, then
-simply find it in the current directory.  Otherwise, search in the current 
+simply find it in the current directory.  Otherwise, search in the current
 directory and its successive parents for a file so named.
 
 Once a file is found, `change-log-default-name' is set locally in the
@@ -212,7 +212,7 @@ current buffer to the complete file name."
 			     (not (string= (file-name-directory file1)
 					   parent-dir))))
 	    ;; Move up to the parent dir and try again.
-	    (setq file1 (expand-file-name 
+	    (setq file1 (expand-file-name
 			 (file-name-nondirectory (change-log-name))
 			 parent-dir)))
 	  ;; If we found a change log in a parent, use that.
@@ -327,7 +327,7 @@ never append to an existing entry.  Today's date is calculated according to
 	  (undo-boundary)
 	  (insert (if (save-excursion
 			(beginning-of-line 1)
-			(looking-at "\\s *$")) 
+			(looking-at "\\s *$"))
 		      ""
 		    " ")
 		  "(" defun "): "))
@@ -619,7 +619,7 @@ Has a preference of looking backwards."
 ;; followed by the string END; move to the end of that match.
 (defun get-method-definition-1 (end)
   (setq get-method-definition-md
-	(concat get-method-definition-md 
+	(concat get-method-definition-md
 		(buffer-substring (match-beginning 1) (match-end 1))
 		end))
   (goto-char (match-end 0)))