diff options
| author | Kenichi Handa <handa@m17n.org> | 2007-04-18 02:32:04 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2007-04-18 02:32:04 +0000 |
| commit | 7486204449ccf23f9d76e08e9bd01bef50d25525 (patch) | |
| tree | a026ce5342eeed47820d498570632e2a59eeb0d6 /lisp/calendar/parse-time.el | |
| parent | fc6a22502ee9c109ee0664a35822bf188500181d (diff) | |
| download | emacs-7486204449ccf23f9d76e08e9bd01bef50d25525.tar.gz emacs-7486204449ccf23f9d76e08e9bd01bef50d25525.tar.bz2 emacs-7486204449ccf23f9d76e08e9bd01bef50d25525.zip | |
(parse-time-string-chars): Check if CHAR is less than the length of
parse-time-syntax.
Diffstat (limited to 'lisp/calendar/parse-time.el')
| -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 @@ (aref parse-time-digits char)) (defsubst parse-time-string-chars (char) - (aref parse-time-syntax char)) + (and (< char (length parse-time-syntax)) + (aref parse-time-syntax char))) (put 'parse-error 'error-conditions '(parse-error error)) (put 'parse-error 'error-message "Parsing error") |