emacs-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]