aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2013-11-15 08:37:18 +0100
committerMichael Albinus2013-11-15 08:37:18 +0100
commite675b3e45242e65a4cab9271566ad9141a81036f (patch)
treec14387baea2a7e42ccd0e115374bbe302db5637b
parenta1f03e8916caa24f1abc2aa14f98a79303017698 (diff)
downloademacs-e675b3e45242e65a4cab9271566ad9141a81036f.tar.gz
emacs-e675b3e45242e65a4cab9271566ad9141a81036f.zip
* net/tramp-sh.el (tramp-remote-process-environment): Set "LC_ALL" to
"en_US.utf8" and "LC_CTYPE" to "". (tramp-maybe-open-connection): Set "LC_ALL" to "en_US.utf8". (tramp-sh-handle-insert-directory): Don't set "LC_ALL" and "LC_CTYPE".
-rw-r--r--lisp/ChangeLog9
-rw-r--r--lisp/net/tramp-sh.el14
2 files changed, 14 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3eb6da2f71..322934fac8c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
12013-11-15 Michael Albinus <michael.albinus@gmx.de>
2
3 * net/tramp-sh.el (tramp-remote-process-environment): Set "LC_ALL" to
4 "en_US.utf8" and "LC_CTYPE" to "".
5 (tramp-maybe-open-connection): Set "LC_ALL" to "en_US.utf8".
6 (tramp-sh-handle-insert-directory): Don't set "LC_ALL" and "LC_CTYPE".
7
12013-11-15 Leo Liu <sdl.web@gmail.com> 82013-11-15 Leo Liu <sdl.web@gmail.com>
2 9
3 * loadhist.el (read-feature): Get rid of fake feature nil. (Bug#15889) 10 * loadhist.el (read-feature): Get rid of fake feature nil. (Bug#15889)
@@ -55,7 +62,7 @@
55 62
562013-11-13 Michael Albinus <michael.albinus@gmx.de> 632013-11-13 Michael Albinus <michael.albinus@gmx.de>
57 64
58 * net/tramp.el (tramp-remote-file-name-spec-regexp): An IPV6 65 * net/tramp.el (tramp-remote-file-name-spec-regexp): An IPv6
59 address can be empty. 66 address can be empty.
60 67
61 * net/tramp-gvfs.el (tramp-gvfs-handle-insert-directory): 68 * net/tramp-gvfs.el (tramp-gvfs-handle-insert-directory):
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 8bed62d7190..874e50fbfaa 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -419,7 +419,8 @@ as given in your `~/.profile'."
419 419
420;;;###tramp-autoload 420;;;###tramp-autoload
421(defcustom tramp-remote-process-environment 421(defcustom tramp-remote-process-environment
422 `("HISTFILE=$HOME/.tramp_history" "HISTSIZE=1" "TMOUT=0" "LC_ALL=C" 422 `("HISTFILE=$HOME/.tramp_history" "HISTSIZE=1" "TMOUT=0"
423 "LC_ALL=en_US.utf8" "LC_CTYPE=''"
423 ,(format "TERM=%s" tramp-terminal-type) 424 ,(format "TERM=%s" tramp-terminal-type)
424 "EMACS=t" ;; Deprecated. 425 "EMACS=t" ;; Deprecated.
425 ,(format "INSIDE_EMACS='%s,tramp:%s'" emacs-version tramp-version) 426 ,(format "INSIDE_EMACS='%s,tramp:%s'" emacs-version tramp-version)
@@ -2518,13 +2519,10 @@ This is like `dired-recursive-delete-directory' for Tramp files."
2518 (if full-directory-p "yes" "no")) 2519 (if full-directory-p "yes" "no"))
2519 ;; If `full-directory-p', we just say `ls -l FILENAME'. 2520 ;; If `full-directory-p', we just say `ls -l FILENAME'.
2520 ;; Else we chdir to the parent directory, then say `ls -ld BASENAME'. 2521 ;; Else we chdir to the parent directory, then say `ls -ld BASENAME'.
2521 ;; "--dired" returns byte positions. Therefore, the file names
2522 ;; must be encoded, which is guaranteed by "LC_ALL=en_US.utf8
2523 ;; LC_CTYPE=''".
2524 (if full-directory-p 2522 (if full-directory-p
2525 (tramp-send-command 2523 (tramp-send-command
2526 v 2524 v
2527 (format "env LC_ALL=en_US.utf8 LC_CTYPE='' %s %s %s 2>/dev/null" 2525 (format "%s %s %s 2>/dev/null"
2528 (tramp-get-ls-command v) 2526 (tramp-get-ls-command v)
2529 switches 2527 switches
2530 (if wildcard 2528 (if wildcard
@@ -2540,7 +2538,7 @@ This is like `dired-recursive-delete-directory' for Tramp files."
2540 (tramp-run-real-handler 'file-name-directory (list localname)))) 2538 (tramp-run-real-handler 'file-name-directory (list localname))))
2541 (tramp-send-command 2539 (tramp-send-command
2542 v 2540 v
2543 (format "env LC_ALL=en_US.utf8 LC_CTYPE='' %s %s %s 2>/dev/null" 2541 (format "%s %s %s 2>/dev/null"
2544 (tramp-get-ls-command v) 2542 (tramp-get-ls-command v)
2545 switches 2543 switches
2546 (if (or wildcard 2544 (if (or wildcard
@@ -4369,7 +4367,7 @@ connection if a previous connection has died for some reason."
4369 (when (and p (processp p)) 4367 (when (and p (processp p))
4370 (delete-process p)) 4368 (delete-process p))
4371 (setenv "TERM" tramp-terminal-type) 4369 (setenv "TERM" tramp-terminal-type)
4372 (setenv "LC_ALL" "C") 4370 (setenv "LC_ALL" "en_US.utf8")
4373 (setenv "PROMPT_COMMAND") 4371 (setenv "PROMPT_COMMAND")
4374 (setenv "PS1" tramp-initial-end-of-output) 4372 (setenv "PS1" tramp-initial-end-of-output)
4375 (let* ((target-alist (tramp-compute-multi-hops vec)) 4373 (let* ((target-alist (tramp-compute-multi-hops vec))
@@ -4479,7 +4477,7 @@ connection if a previous connection has died for some reason."
4479 tramp-current-user (or g-user l-user) 4477 tramp-current-user (or g-user l-user)
4480 tramp-current-host (or g-host l-host)) 4478 tramp-current-host (or g-host l-host))
4481 4479
4482 ;; Replace login-args place holders. 4480 ;; Replace `login-args' place holders.
4483 (setq 4481 (setq
4484 l-host (or l-host "") 4482 l-host (or l-host "")
4485 l-user (or l-user "") 4483 l-user (or l-user "")