aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/calendar/parse-time.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/calendar/parse-time.el b/lisp/calendar/parse-time.el
index c17d04a8c10..b62f9fa7941 100644
--- a/lisp/calendar/parse-time.el
+++ b/lisp/calendar/parse-time.el
@@ -146,8 +146,12 @@ letters, digits, plus or minus signs or colons."
146;;;###autoload 146;;;###autoload
147(defun parse-time-string (string) 147(defun parse-time-string (string)
148 "Parse the time-string STRING into (SEC MIN HOUR DAY MON YEAR DOW DST TZ). 148 "Parse the time-string STRING into (SEC MIN HOUR DAY MON YEAR DOW DST TZ).
149The values are identical to those of `decode-time', but any values that are 149STRING should be on something resembling an RFC2822 string, a la
150unknown are returned as nil." 150\"Fri, 25 Mar 2016 16:24:56 +0100\", but this function is
151somewhat liberal in what format it accepts, and will attempt to
152return a \"likely\" value even for somewhat malformed strings.
153The values returned are identical to those of `decode-time', but
154any values that are unknown are returned as nil."
151 (let ((time (list nil nil nil nil nil nil nil nil nil)) 155 (let ((time (list nil nil nil nil nil nil nil nil nil))
152 (temp (parse-time-tokenize (downcase string)))) 156 (temp (parse-time-tokenize (downcase string))))
153 (while temp 157 (while temp