# HG changeset patch # User Michael Albinus # Date 1287144943 -7200 # Node ID 02c2f28e7c6adf05039284283700c268cfc84f27 # Parent 5e8f54361c49ab45f572916d155e72bcfd160d5a * net/tramp.el (tramp-open-connection-setup-interactive-shell): Suppress expansion of tabs to spaces. diff -r 5e8f54361c49 -r 02c2f28e7c6a lisp/ChangeLog --- 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 + + * net/tramp.el (tramp-open-connection-setup-interactive-shell): + Suppress expansion of tabs to spaces. + 2010-10-15 Kenichi Handa * international/characters.el: Add category '|' (word breakable) diff -r 5e8f54361c49 -r 02c2f28e7c6a lisp/net/tramp.el --- 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")