mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(parse-time-string-chars): Check if CHAR is less than the length of

Browse Source 
parse-time-syntax.
This commit is contained in:
Kenichi Handa 2007-04-18 02:32:04 +00:00
parent fc6a22502e
commit 7486204449
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/calendar/parse-time.el
View File

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