* lisp/calendar/time-date.el (date-to-time): 'signal' only takes 2 args

diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el
index cc30bd1fda44fd7e5afd0d0446eabb267a2e9b66..decb21e9c20fb2f48bec2fb35a6a2316b8b06b8e 100644 (file)
--- a/lisp/calendar/time-date.el
+++ b/lisp/calendar/time-date.el
@@ -155,13 +155,13 @@ If DATE lacks timezone information, GMT is assumed."
     (error
      (let ((overflow-error '(error "Specified time is not representable")))
        (if (equal err overflow-error)
-          (apply 'signal err)
-        (condition-case err
+          (signal (car err) (cdr err))
+        (condition-case-unless-debug err
             (encode-time (parse-time-string
                           (timezone-make-date-arpa-standard date)))
           (error
            (if (equal err overflow-error)
-               (apply 'signal err)
+               (signal (car err) (cdr err))
              (error "Invalid date: %s" date)))))))))
 
 ;;;###autoload