* lisp/calendar/time-date.el (date-to-time): 'signal' only takes 2 args
This commit is contained in:
parent
9ffbe127c1
commit
cb411c609d
1 changed files with 3 additions and 3 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue