diff options
| author | Stefan Monnier | 2019-04-19 23:28:07 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2019-04-19 23:28:07 -0400 |
| commit | cb411c609d43d3c015c9550e1fc931f6f204e90d (patch) | |
| tree | 3d67bfdb9977071b9ae484ae53240a0086adffc0 | |
| parent | 9ffbe127c13803e1a949a18f8e84ed3eeb440b74 (diff) | |
| download | emacs-cb411c609d43d3c015c9550e1fc931f6f204e90d.tar.gz emacs-cb411c609d43d3c015c9550e1fc931f6f204e90d.zip | |
* lisp/calendar/time-date.el (date-to-time): 'signal' only takes 2 args
| -rw-r--r-- | lisp/calendar/time-date.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el index cc30bd1fda4..decb21e9c20 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." | |||
| 155 | (error | 155 | (error |
| 156 | (let ((overflow-error '(error "Specified time is not representable"))) | 156 | (let ((overflow-error '(error "Specified time is not representable"))) |
| 157 | (if (equal err overflow-error) | 157 | (if (equal err overflow-error) |
| 158 | (apply 'signal err) | 158 | (signal (car err) (cdr err)) |
| 159 | (condition-case err | 159 | (condition-case-unless-debug err |
| 160 | (encode-time (parse-time-string | 160 | (encode-time (parse-time-string |
| 161 | (timezone-make-date-arpa-standard date))) | 161 | (timezone-make-date-arpa-standard date))) |
| 162 | (error | 162 | (error |
| 163 | (if (equal err overflow-error) | 163 | (if (equal err overflow-error) |
| 164 | (apply 'signal err) | 164 | (signal (car err) (cdr err)) |
| 165 | (error "Invalid date: %s" date))))))))) | 165 | (error "Invalid date: %s" date))))))))) |
| 166 | 166 | ||
| 167 | ;;;###autoload | 167 | ;;;###autoload |