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) |