mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

Make parse-time-string-chars faster

Browse Source 
* lisp/calendar/parse-time.el (parse-time-string-chars): Clean
up the code (backport:).
This commit is contained in:
Lars Ingebrigtsen 2016-02-28 15:39:33 +10:30
parent b13cab683c
commit 5cac11aa06
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/calendar/parse-time.el
View File

@ -41,14 +41,11 @@
(defvar parse-time-val)
(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)))))
(cond ((<= ?a char ?z) ?a)
((<= ?0 char ?9) ?0)
((eq char ?+) 1)
((eq char ?-) -1)
((eq char ?:) ?d)))
(defun parse-time-tokenize (string)
"Tokenize STRING into substrings."