# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1176863524 0
# Node ID 293993a9e1e7729fbeb29f16c63db5914e778b82
# Parent  0f67bcedb4477b30e15256280d89b21b58149371
(parse-time-string-chars): Check if CHAR is less than the length of
parse-time-syntax.

diff -r 0f67bcedb447 -r 293993a9e1e7 lisp/calendar/parse-time.el
--- a/lisp/calendar/parse-time.el	Tue Apr 17 23:24:13 2007 +0000
+++ b/lisp/calendar/parse-time.el	Wed Apr 18 02:32:04 2007 +0000
@@ -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")