emacs-diffs
[Top][All Lists]
Advanced

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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]