Commit 81b1f9c9 authored by Chong Yidong's avatar Chong Yidong
Browse files

* calendar/parse-time.el (parse-time-string-chars): Save match data.

parent 4f22e84d
2009-08-16 Chong Yidong <cyd@stupidchicken.com>
* calendar/parse-time.el (parse-time-string-chars): Save match
data.
2009-08-16 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/sql.el (sql-product-alist): Add :name tag to entries.
......
......@@ -51,13 +51,14 @@
(aref parse-time-digits char))
(defsubst parse-time-string-chars (char)
(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))))
(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)))))
(put 'parse-error 'error-conditions '(parse-error error))
(put 'parse-error 'error-message "Parsing error")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment