Mercurial > emacs
comparison lisp/calendar/parse-time.el @ 77287:293993a9e1e7
(parse-time-string-chars): Check if CHAR is less than the length of
parse-time-syntax.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 18 Apr 2007 02:32:04 +0000 |
| parents | 7a3f13e2dd57 |
| children | 93e11478c954 e6fdae9180d4 |
comparison
equal
deleted
inserted
replaced
| 77286:0f67bcedb447 | 77287:293993a9e1e7 |
|---|---|
| 64 | 64 |
| 65 (defsubst digit-char-p (char) | 65 (defsubst digit-char-p (char) |
| 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") |
| 73 | 74 |
| 74 (defsubst parse-integer (string &optional start end) | 75 (defsubst parse-integer (string &optional start end) |