projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
message: defalias mail-dont-reply-to if needed
[gnus]
/
lisp
/
parse-time.el
diff --git
a/lisp/parse-time.el
b/lisp/parse-time.el
index
afaf1eb
..
9c97696
100644
(file)
--- a/
lisp/parse-time.el
+++ b/
lisp/parse-time.el
@@
-112,11
+112,11
@@
(index 0)
(c nil))
(while (< index end)
(index 0)
(c nil))
(while (< index end)
- (while (and (< index end) ;
skip invalid characters
+ (while (and (< index end) ;
Skip invalid characters.
(not (setq c (parse-time-string-chars (aref string index)))))
(incf index))
(setq start index all-digits (eq c ?0))
(not (setq c (parse-time-string-chars (aref string index)))))
(incf index))
(setq start index all-digits (eq c ?0))
- (while (and (< (incf index) end) ;
scan valid characters
+ (while (and (< (incf index) end) ;
Scan valid characters.
(setq c (parse-time-string-chars (aref string index))))
(setq all-digits (and all-digits (eq c ?0))))
(if (<= index end)
(setq c (parse-time-string-chars (aref string index))))
(setq all-digits (and all-digits (eq c ?0))))
(if (<= index end)