diff options
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/appt.el | 2 | ||||
| -rw-r--r-- | lisp/calendar/time-date.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index df8e28319e5..f12a51c3dc9 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el | |||
| @@ -232,7 +232,7 @@ also calls `beep' for an audible reminder." | |||
| 232 | time string) | 232 | time string) |
| 233 | (wrong-type-argument | 233 | (wrong-type-argument |
| 234 | (if (not (listp mins)) | 234 | (if (not (listp mins)) |
| 235 | (signal (car err) (cdr err)) | 235 | (signal err) |
| 236 | (message "Argtype error in `appt-disp-window-function' - \ | 236 | (message "Argtype error in `appt-disp-window-function' - \ |
| 237 | update it for multiple appts?") | 237 | update it for multiple appts?") |
| 238 | ;; Fallback to just displaying the first appt, as we used to. | 238 | ;; Fallback to just displaying the first appt, as we used to. |
diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el index bd1e7a88f16..83764074eec 100644 --- a/lisp/calendar/time-date.el +++ b/lisp/calendar/time-date.el | |||
| @@ -161,7 +161,7 @@ If DATE lacks time zone information, local time is assumed." | |||
| 161 | (encode-time parsed)) | 161 | (encode-time parsed)) |
| 162 | (error | 162 | (error |
| 163 | (if (equal err '(error "Specified time is not representable")) | 163 | (if (equal err '(error "Specified time is not representable")) |
| 164 | (signal (car err) (cdr err)) | 164 | (signal err) |
| 165 | (error "Invalid date: %s" date))))) | 165 | (error "Invalid date: %s" date))))) |
| 166 | 166 | ||
| 167 | ;;;###autoload | 167 | ;;;###autoload |