From 7486204449ccf23f9d76e08e9bd01bef50d25525 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 18 Apr 2007 02:32:04 +0000 Subject: [PATCH] (parse-time-string-chars): Check if CHAR is less than the length of parse-time-syntax. --- lisp/calendar/parse-time.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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") -- 2.39.2