]> git.eshelyaron.com Git - emacs.git/commitdiff
Use default value of `parse-time-months' in tramp-smb.el
authorMichael Albinus <michael.albinus@gmx.de>
Fri, 2 Aug 2019 18:14:23 +0000 (20:14 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Fri, 2 Aug 2019 18:14:23 +0000 (20:14 +0200)
* lisp/net/tramp-smb.el (tramp-smb-read-file-entry): Use default
value of `parse-time-months'.

lisp/net/tramp-smb.el

index 568c6cb43aad333c6dcfa53bcc653bd13ab8c93e..cb8d2df084771fc9e6a3c2e12e423e647a4110de 100644 (file)
@@ -1814,10 +1814,12 @@ Result is the list (LOCALNAME MODE SIZE MTIME)."
            (if (and sec min hour day month year)
                (encode-time
                 sec min hour day
-                ;; FIXME: Won't this fail if parse-time-months is configured
-                ;; by the user?  See "The date/time prompt" in the Org manual.
-                ;; If the code is OK as-is, perhaps explain why in a comment.
-                (cdr (assoc (downcase month) parse-time-months))
+                ;; `parse-time-months' could be customized by the
+                ;; user, so we take its default value.
+                (cdr
+                 (assoc
+                  (downcase month)
+                  (default-toplevel-value 'parse-time-months)))
                 year)
              tramp-time-dont-know))
       (list localname mode size mtime))))