mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 05:30:45 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/net/tramp-gvfs.el (tramp-gvfs-send-command): Fix problem with locale.

Browse source
This commit is contained in:
Michael Albinus 2022-02-04 11:59:56 +01:00
parent 97966c5154
commit 37c433e4e2
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/net/tramp-gvfs.el
View file

@ -2246,13 +2246,7 @@ connection if a previous connection has died for some reason."
COMMAND is a command from the gvfs-* utilities. It is replaced
by the corresponding gio tool call if available. `call-process'
is applied, and it returns t if the return code is zero."
(let* ((locale (tramp-get-local-locale vec))
(process-environment
(append
`(,(format "LANG=%s" locale)
,(format "LANGUAGE=%s" locale)
,(format "LC_ALL=%s" locale))
process-environment)))
(let ((locale (tramp-get-local-locale vec)))
(when (tramp-gvfs-gio-tool-p vec)
;; Use gio tool.
(setq args (cons (cdr (assoc command tramp-gvfs-gio-mapping))
@ -2262,7 +2256,14 @@ is applied, and it returns t if the return code is zero."
(with-current-buffer (tramp-get-connection-buffer vec)
(tramp-gvfs-maybe-open-connection vec)
(erase-buffer)
(or (zerop (apply #'tramp-call-process vec command nil t nil args))
(or (zerop
(apply
#'tramp-call-process vec "env" nil t nil
(append `(,(format "LANG=%s" locale)
,(format "LANGUAGE=%s" locale)
,(format "LC_ALL=%s" locale)
,command)
args)))
;; Remove information about mounted connection.
(and (tramp-flush-file-properties vec "/") nil)))))