From: Kenichi Handa <handa@m17n.org>
Date: Wed, 18 Apr 2007 02:32:04 +0000 (+0000)
Subject: (parse-time-string-chars): Check if CHAR is less than the length of
X-Git-Tag: emacs-pretest-22.0.99~190
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7486204449ccf23f9d76e08e9bd01bef50d25525;p=emacs.git

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

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