From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 20 Apr 2021 11:35:26 +0000 (+0200)
Subject: Fix localization problem in Tramp
X-Git-Tag: emacs-28.0.90~2805
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4da7b2dfeec82ad0fac987d2628048e85f222258;p=emacs.git

Fix localization problem in Tramp

* lisp/net/tramp-sh.el (tramp-get-remote-stat): Use localized
quotation characters for check.
---

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index df64d13c41f..dde92d87a08 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -5488,15 +5488,15 @@ Nonexistent directories are removed from spec."
 	;; Check whether stat(1) returns usable syntax.  "%s" does not
 	;; work on older AIX systems.  Recent GNU stat versions
 	;; (8.24?)  use shell quoted format for "%N", we check the
-	;; boundaries "`" and "'", therefore.  See Bug#23422 in
-	;; coreutils.  Since GNU stat 8.26, environment variable
-	;; QUOTING_STYLE is supported.
+	;; boundaries "`" and "'" and their localized variants,
+	;; therefore.  See Bug#23422 in coreutils.  Since GNU stat
+	;; 8.26, environment variable QUOTING_STYLE is supported.
 	(when result
 	  (setq result (concat "env QUOTING_STYLE=locale " result)
 		tmp (tramp-send-command-and-read
 		     vec (format "%s -c '(\"%%N\" %%s)' /" result) 'noerror))
 	  (unless (and (listp tmp) (stringp (car tmp))
-		       (string-match-p "^\\(`/'\\|‘/’\\)$" (car tmp))
+		       (string-match-p "^[\"`‘„”«「]/[\"'’“”»」]$" (car tmp))
 		       (integerp (cadr tmp)))
 	    (setq result nil)))
 	result))))