# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1284667217 -3600
# Node ID ecdd1daab44709b5ea768d3e5900406c0bc078ce
# Parent  799742b751c8b146dd4fcb0d6be6be141341693c
Add an omitted comma, Check-Message, test-harness.el.

lisp/ChangeLog addition:

2010-09-16  Aidan Kehoe  <kehoea@parhasard.net>

	* test-harness.el (Check-Message):
	Add an omitted comma here, thank you the buildbot.

diff -r 799742b751c8 -r ecdd1daab447 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Sep 16 20:34:49 2010 +0100
+++ b/lisp/ChangeLog	Thu Sep 16 21:00:17 2010 +0100
@@ -1,3 +1,8 @@
+2010-09-16  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* test-harness.el (Check-Message):
+	Add an omitted comma here, thank you the buildbot.
+
 2010-09-16  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* hash-table.el (hash-table-key-list, hash-table-value-list)
diff -r 799742b751c8 -r ecdd1daab447 lisp/test-harness.el
--- a/lisp/test-harness.el	Thu Sep 16 20:34:49 2010 +0100
+++ b/lisp/test-harness.el	Thu Sep 16 21:00:17 2010 +0100
@@ -502,7 +502,7 @@
 			       `(quote ,(car body))
 			     `(quote (progn ,@body)))))
 	  `(Skip-Test-Unless (fboundp 'defadvice) "can't defadvice"
-	    expected-message-regexp
+	    ,expected-message-regexp
 	    (let ((messages ""))
 	      (defadvice message (around collect activate)
 		(defvar messages)