[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog calendar/parse-time.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog calendar/parse-time.el |
Date: |
Sun, 16 Aug 2009 18:38:19 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 09/08/16 18:38:19
Modified files:
lisp : ChangeLog
lisp/calendar : parse-time.el
Log message:
* calendar/parse-time.el (parse-time-string-chars): Save match data.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15950&r2=1.15951
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calendar/parse-time.el?cvsroot=emacs&r1=1.22&r2=1.23
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15950
retrieving revision 1.15951
diff -u -b -r1.15950 -r1.15951
--- ChangeLog 16 Aug 2009 15:48:15 -0000 1.15950
+++ ChangeLog 16 Aug 2009 18:38:15 -0000 1.15951
@@ -1,3 +1,8 @@
+2009-08-16 Chong Yidong <address@hidden>
+
+ * calendar/parse-time.el (parse-time-string-chars): Save match
+ data.
+
2009-08-16 Stefan Monnier <address@hidden>
* progmodes/sql.el (sql-product-alist): Add :name tag to entries.
Index: calendar/parse-time.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/parse-time.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- calendar/parse-time.el 16 Aug 2009 14:33:47 -0000 1.22
+++ calendar/parse-time.el 16 Aug 2009 18:38:19 -0000 1.23
@@ -51,13 +51,14 @@
(aref parse-time-digits char))
(defsubst parse-time-string-chars (char)
+ (save-match-data
(let (case-fold-search str)
(cond ((eq char ?+) 1)
((eq char ?-) -1)
((eq char ?:) ?d)
((string-match "[[:upper:]]" (setq str (string char))) ?A)
((string-match "[[:lower:]]" str) ?a)
- ((string-match "[[:digit:]]" str) ?0))))
+ ((string-match "[[:digit:]]" str) ?0)))))
(put 'parse-error 'error-conditions '(parse-error error))
(put 'parse-error 'error-message "Parsing error")