[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 2812099: Doc string fix
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 2812099: Doc string fix |
Date: |
Fri, 25 Mar 2016 15:26:35 +0000 |
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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 2812099: Doc string fix,
Lars Ingebrigtsen <=