From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 28 Feb 2016 05:04:33 +0000 (+1030)
Subject: Clean up the code in parse-time-string-chars
X-Git-Tag: emacs-26.0.90~2441
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ac844be4ec66728f33b3651f7cc87c4601dcc49;p=emacs.git

Clean up the code in parse-time-string-chars

* lisp/calendar/parse-time.el (parse-time-string-chars):
Clean up the code a bit.
---

diff --git a/lisp/calendar/parse-time.el b/lisp/calendar/parse-time.el
index fd26e772b57..6ba26a4a00d 100644
--- a/lisp/calendar/parse-time.el
+++ b/lisp/calendar/parse-time.el
@@ -41,13 +41,11 @@
 (defvar parse-time-val)
 
 (defsubst parse-time-string-chars (char)
-  (save-match-data
-    (let (str)
-      (cond ((eq char ?+) 1)
-	    ((eq char ?-) -1)
-	    ((eq char ?:) ?d)
-	    ((string-match "[[:lower:]]" (setq str (string char))) ?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."