Use default value of `parse-time-months' in tramp-smb.el

* lisp/net/tramp-smb.el (tramp-smb-read-file-entry): Use default
value of `parse-time-months'.

1 files changed, 6 insertions, 4 deletions

diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index 568c6cb43aa..cb8d2df0847 100644
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -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))))