From 4da7b2dfeec82ad0fac987d2628048e85f222258 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 20 Apr 2021 13:35:26 +0200 Subject: [PATCH] Fix localization problem in Tramp * lisp/net/tramp-sh.el (tramp-get-remote-stat): Use localized quotation characters for check. --- lisp/net/tramp-sh.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)))) -- 2.39.5