[Emacs-diffs] master 3e943eb 2/2: Use default value of `parse-time-months' in tramp-smb.el

[Michael Albinus]

branch: master
commit 3e943ebc34d3583480546da24ecb65ca74119297
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    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'.
---
 lisp/net/tramp-smb.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index 568c6cb..cb8d2df 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))))