[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master cb411c6 2/4: * lisp/calendar/time-date.el (date-to-
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master cb411c6 2/4: * lisp/calendar/time-date.el (date-to-time): 'signal' only takes 2 args |
Date: |
Fri, 19 Apr 2019 23:32:11 -0400 (EDT) |
branch: master
commit cb411c609d43d3c015c9550e1fc931f6f204e90d
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/calendar/time-date.el (date-to-time): 'signal' only takes 2 args
---
lisp/calendar/time-date.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el
index cc30bd1..decb21e 100644
--- 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