[Emacs-diffs] master 4861b50 2/4: Make parse-time-string-chars more efficient

[Lars Ingebrigtsen]

branch: master
commit 4861b50e439443a1ba8a867c88faf28ae3737706
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Make parse-time-string-chars more efficient
    
    * lisp/calendar/parse-time.el (parse-time-string-chars): The
    string has already been downcase, so don't care about case
    (bug#18522).
---
 lisp/calendar/parse-time.el |    5 ++---
 1 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/calendar/parse-time.el b/lisp/calendar/parse-time.el
index 4086d23..fd26e77 100644
--- a/lisp/calendar/parse-time.el
+++ b/lisp/calendar/parse-time.el
@@ -42,12 +42,11 @@
 
 (defsubst parse-time-string-chars (char)
   (save-match-data
-    (let (case-fold-search str)
+    (let (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 "[[:lower:]]" (setq str (string char))) ?a)
            ((string-match "[[:digit:]]" str) ?0)))))
 
 (defun parse-time-tokenize (string)