From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 8 Sep 2015 22:10:00 +0000 (+0000)
Subject: time-date.el (with-decoded-time-value): Fix debug spec
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=00fbe7e7f11942c2d26e357f0316e4f9605c325a;ds=sidebyside

time-date.el (with-decoded-time-value): Fix debug spec
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3af83524..e3782bf48 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-09-08  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* time-date.el (with-decoded-time-value): Fix debug spec.
+
 2015-09-08  Paul Eggert  <eggert@cs.ucla.edu>
 
 	* nnmairix.el (nnmairix-widget-create-query):
diff --git a/lisp/time-date.el b/lisp/time-date.el
index bb7e97ea7..f30bea83e 100644
--- a/lisp/time-date.el
+++ b/lisp/time-date.el
@@ -52,7 +52,8 @@ Type 0 is the cons cell (HIGH . LOW), type 1 is the list (HIGH
 LOW), type 2 is the list (HIGH LOW MICRO), and type 3 is the
 list (HIGH LOW MICRO PICO)."
   (declare (indent 1)
-	   (debug ((&rest (symbolp symbolp symbolp &or [symbolp form] form))
+	   (debug ((&rest (symbolp symbolp symbolp
+                           &or [symbolp symbolp form] [symbolp form] form))
 		   body)))
   (if varlist
       (let* ((elt (pop varlist))