Commit cb411c60 authored by Stefan Monnier's avatar Stefan Monnier

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

parent 9ffbe127
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment