diff options
| author | Michael Albinus | 2013-11-15 08:37:18 +0100 |
|---|---|---|
| committer | Michael Albinus | 2013-11-15 08:37:18 +0100 |
| commit | e675b3e45242e65a4cab9271566ad9141a81036f (patch) | |
| tree | c14387baea2a7e42ccd0e115374bbe302db5637b | |
| parent | a1f03e8916caa24f1abc2aa14f98a79303017698 (diff) | |
| download | emacs-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/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/net/tramp-sh.el | 14 |
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 @@ | |||
| 1 | 2013-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 | |||
| 1 | 2013-11-15 Leo Liu <sdl.web@gmail.com> | 8 | 2013-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 | ||
| 56 | 2013-11-13 Michael Albinus <michael.albinus@gmx.de> | 63 | 2013-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 "") |