diff options
| -rw-r--r-- | lisp/calendar/parse-time.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calendar/parse-time.el b/lisp/calendar/parse-time.el index 4a786da7726..0913bc92160 100644 --- a/lisp/calendar/parse-time.el +++ b/lisp/calendar/parse-time.el | |||
| @@ -66,7 +66,8 @@ | |||
| 66 | (aref parse-time-digits char)) | 66 | (aref parse-time-digits char)) |
| 67 | 67 | ||
| 68 | (defsubst parse-time-string-chars (char) | 68 | (defsubst parse-time-string-chars (char) |
| 69 | (aref parse-time-syntax char)) | 69 | (and (< char (length parse-time-syntax)) |
| 70 | (aref parse-time-syntax char))) | ||
| 70 | 71 | ||
| 71 | (put 'parse-error 'error-conditions '(parse-error error)) | 72 | (put 'parse-error 'error-conditions '(parse-error error)) |
| 72 | (put 'parse-error 'error-message "Parsing error") | 73 | (put 'parse-error 'error-message "Parsing error") |