Mercurial > emacs
changeset 111040:02c2f28e7c6a
* net/tramp.el (tramp-open-connection-setup-interactive-shell):
Suppress expansion of tabs to spaces.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Fri, 15 Oct 2010 14:15:43 +0200 |
| parents | 5e8f54361c49 |
| children | 41b4a4c75ab9 |
| files | lisp/ChangeLog lisp/net/tramp.el |
| diffstat | 2 files changed, 15 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Oct 15 17:01:41 2010 +0900 +++ b/lisp/ChangeLog Fri Oct 15 14:15:43 2010 +0200 @@ -1,3 +1,8 @@ +2010-10-15 Michael Albinus <michael.albinus@gmx.de> + + * net/tramp.el (tramp-open-connection-setup-interactive-shell): + Suppress expansion of tabs to spaces. + 2010-10-15 Kenichi Handa <handa@m17n.org> * international/characters.el: Add category '|' (word breakable)
--- a/lisp/net/tramp.el Fri Oct 15 17:01:41 2010 +0900 +++ b/lisp/net/tramp.el Fri Oct 15 14:15:43 2010 +0200 @@ -7013,9 +7013,7 @@ ;; because we're running on a non-MULE Emacs. Let's try ;; stty, instead. (tramp-send-command vec "stty -onlcr" t)))) - ;; Dump stty settings in the traces. - (when (>= tramp-verbose 9) - (tramp-send-command vec "stty -a" t)) + (tramp-send-command vec "set +o vi +o emacs" t) ;; Check whether the output of "uname -sr" has been changed. If @@ -7086,11 +7084,20 @@ (when (string-match "^IRIX64" (tramp-get-connection-property vec "uname" "")) (tramp-send-command vec "set +H" t)) + ;; On BSD-like systems, ?\t is expanded to spaces. Suppress this. + (when (string-match "BSD\\|Darwin" + (tramp-get-connection-property vec "uname" "")) + (tramp-send-command vec "stty -oxtabs" t)) + ;; Set `remote-tty' process property. (ignore-errors (let ((tty (tramp-send-command-and-read vec "echo \\\"`tty`\\\""))) (unless (zerop (length tty)) (process-put proc 'remote-tty tty)))) + ;; Dump stty settings in the traces. + (when (>= tramp-verbose 9) + (tramp-send-command vec "stty -a" t)) + ;; Set the environment. (tramp-message vec 5 "Setting default environment")