From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 2 Aug 2019 18:14:23 +0000 (+0200)
Subject: Use default value of `parse-time-months' in tramp-smb.el
X-Git-Tag: emacs-27.0.90~1749
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e943ebc34d3583480546da24ecb65ca74119297;p=emacs.git

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'.
---

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))))