[Emacs-diffs] master 2812099: Doc string fix

[Lars Ingebrigtsen]

branch: master
commit 2812099bcc1449b126d3435b05c2ad3d19b6c1a1
Author: Marcin Borkowski <address@hidden>
Commit: Lars Magne Ingebrigtsen <address@hidden>

    Doc string fix
    
    * lisp/calendar/parse-time.el (parse-time-tokenize): Clarify
    doc string and clean up code.
---
 lisp/calendar/parse-time.el |    7 +++++--
 1 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/calendar/parse-time.el b/lisp/calendar/parse-time.el
index 6ba26a4..c17d04a 100644
--- a/lisp/calendar/parse-time.el
+++ b/lisp/calendar/parse-time.el
@@ -48,7 +48,9 @@
         ((eq char ?:) ?d)))
 
 (defun parse-time-tokenize (string)
-  "Tokenize STRING into substrings."
+  "Tokenize STRING into substrings.
+Each substring is a run of \"valid\" characters, i.e., lowercase
+letters, digits, plus or minus signs or colons."
   (let ((start nil)
        (end (length string))
        (all-digits nil)
@@ -59,7 +61,8 @@
       (while (and (< index end)                ;Skip invalid characters.
                  (not (setq c (parse-time-string-chars (aref string index)))))
        (cl-incf index))
-      (setq start index all-digits (eq c ?0))
+      (setq start index
+            all-digits (eq c ?0))
       (while (and (< (cl-incf index) end)      ;Scan valid characters.
                  (setq c (parse-time-string-chars (aref string index))))
        (setq all-digits (and all-digits (eq c ?0))))