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

This commit is contained in:
Stefan Monnier 2019-04-19 23:28:07 -04:00
parent 9ffbe127c1
commit cb411c609d

View file

@ -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