Commit 4da7b2df authored by Michael Albinus's avatar Michael Albinus
Browse files

Fix localization problem in Tramp

* lisp/net/tramp-sh.el (tramp-get-remote-stat): Use localized
quotation characters for check.
parent 4e907fa3
Pipeline #10395 passed with stages
in 11 minutes and 28 seconds
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment