diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2010-10-15 14:15:43 +0200 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2010-10-15 14:15:43 +0200 |
commit | e499c64d970a726bb599ca6dcb9fd1a545e5bddc (patch) | |
tree | 63bcab8a846efeb1864ededa7ee73c332b1b1215 /lisp/net | |
parent | 31daa5e17c73c0830ef5094eb38702450965a938 (diff) | |
download | emacs-e499c64d970a726bb599ca6dcb9fd1a545e5bddc.tar.gz |
* net/tramp.el (tramp-open-connection-setup-interactive-shell):
Suppress expansion of tabs to spaces.
Diffstat (limited to 'lisp/net')
-rw-r--r-- | lisp/net/tramp.el | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index d5d1606c617..01317ac3708 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -7013,9 +7013,7 @@ process to set up. VEC specifies the connection." ;; 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 @@ process to set up. VEC specifies the connection." (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") |