emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 70d36dd: Turn on lexical-binding in parse-time.el


From: Mark Oteiza
Subject: [Emacs-diffs] master 70d36dd: Turn on lexical-binding in parse-time.el
Date: Thu, 2 Feb 2017 02:02:58 +0000 (UTC)

branch: master
commit 70d36dda26465b43c1a63e8e13153e070af86456
Author: Mark Oteiza <address@hidden>
Commit: Mark Oteiza <address@hidden>

    Turn on lexical-binding in parse-time.el
    
    * lisp/calendar/parse-time.el: Turn on lexical-binding.
    (parse-time-iso8601-regexp, parse-iso8601-time-string): Remove unused
    bindings.
---
 lisp/calendar/parse-time.el |   12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/lisp/calendar/parse-time.el b/lisp/calendar/parse-time.el
index 7651c5d..b781cb0 100644
--- a/lisp/calendar/parse-time.el
+++ b/lisp/calendar/parse-time.el
@@ -1,4 +1,4 @@
-;;; parse-time.el --- parsing time strings
+;;; parse-time.el --- parsing time strings -*- lexical-binding: t -*-
 
 ;; Copyright (C) 1996, 2000-2017 Free Software Foundation, Inc.
 
@@ -203,12 +203,9 @@ any values that are unknown are returned as nil."
         (time-second 2digit)
         (time-secfrac "\\(\\.[0-9]+\\)?")
         (time-numoffset (concat "\\([-+]\\)" time-hour ":?" time-minute "?"))
-        (time-offset (concat "Z" time-numoffset))
         (partial-time (concat time-hour colon time-minute colon time-second
                               time-secfrac))
-        (full-date (concat date-fullyear dash date-month dash date-mday))
-        (full-time (concat partial-time time-offset))
-        (date-time (concat full-date "T" full-time)))
+        (full-date (concat date-fullyear dash date-month dash date-mday)))
     (list (concat "^" full-date)
          (concat "T" partial-time)
          (concat "\\(Z\\|" time-numoffset "\\)")))
@@ -225,7 +222,7 @@ If DATE-STRING cannot be parsed, it falls back to
         (time-re (nth 1 parse-time-iso8601-regexp))
         (tz-re (nth 2 parse-time-iso8601-regexp))
          re-start
-         time seconds minute hour fractional-seconds
+         time seconds minute hour
          day month year day-of-week dst tz)
     ;; We need to populate 'time' with
     ;; (SEC MIN HOUR DAY MON YEAR DOW DST TZ)
@@ -240,9 +237,6 @@ If DATE-STRING cannot be parsed, it falls back to
        (setq hour (string-to-number (match-string 1 date-string))
              minute (string-to-number (match-string 2 date-string))
              seconds (string-to-number (match-string 3 date-string))
-             fractional-seconds (string-to-number (or
-                                                    (match-string 4 
date-string)
-                                                    "0"))
              re-start (match-end 0))
        (when (string-match tz-re date-string re-start)
           (if (string= "Z" (match-string 1 date-string))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]