]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix localization problem in Tramp
authorMichael Albinus <michael.albinus@gmx.de>
Tue, 20 Apr 2021 11:35:26 +0000 (13:35 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Tue, 20 Apr 2021 11:35:26 +0000 (13:35 +0200)
* lisp/net/tramp-sh.el (tramp-get-remote-stat): Use localized
quotation characters for check.

lisp/net/tramp-sh.el

index df64d13c41f040e629484a041acabcd74f35f981..dde92d87a08b04e95fa06e024f4025eb7889fa36 100644 (file)
@@ -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))))