diff options
| author | Michael Albinus | 2015-12-15 12:05:37 +0100 |
|---|---|---|
| committer | Michael Albinus | 2015-12-15 12:05:37 +0100 |
| commit | 3be06984666626341e14db0fa2eef089d2f5de13 (patch) | |
| tree | aad8ee151fcf8ea0d2225e1233c58ad9dabc7c3e | |
| parent | 702434408433a3b04be1a03b10366b4d7191b54e (diff) | |
| download | emacs-3be06984666626341e14db0fa2eef089d2f5de13.tar.gz emacs-3be06984666626341e14db0fa2eef089d2f5de13.zip | |
Handle Mac OS X eol encoding in Tramp
* lisp/net/tramp-sh.el (tramp-open-connection-setup-interactive-shell):
Handle Mac OS X eol encoding.
| -rw-r--r-- | lisp/net/tramp-sh.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index 03492de1149..8e0ef57fd8a 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el | |||
| @@ -486,6 +486,7 @@ The string is used in `tramp-methods'.") | |||
| 486 | ;; Solaris: /usr/xpg4/bin:/usr/ccs/bin:/usr/bin:/opt/SUNWspro/bin | 486 | ;; Solaris: /usr/xpg4/bin:/usr/ccs/bin:/usr/bin:/opt/SUNWspro/bin |
| 487 | ;; GNU/Linux (Debian, Suse): /bin:/usr/bin | 487 | ;; GNU/Linux (Debian, Suse): /bin:/usr/bin |
| 488 | ;; FreeBSD: /usr/bin:/bin:/usr/sbin:/sbin: - beware trailing ":"! | 488 | ;; FreeBSD: /usr/bin:/bin:/usr/sbin:/sbin: - beware trailing ":"! |
| 489 | ;; Darwin: /usr/bin:/bin:/usr/sbin:/sbin | ||
| 489 | ;; IRIX64: /usr/bin | 490 | ;; IRIX64: /usr/bin |
| 490 | ;;;###tramp-autoload | 491 | ;;;###tramp-autoload |
| 491 | (defcustom tramp-remote-path | 492 | (defcustom tramp-remote-path |
| @@ -4198,8 +4199,12 @@ process to set up. VEC specifies the connection." | |||
| 4198 | (setq cs-encode (cdr cs)) | 4199 | (setq cs-encode (cdr cs)) |
| 4199 | (unless cs-decode (setq cs-decode 'undecided)) | 4200 | (unless cs-decode (setq cs-decode 'undecided)) |
| 4200 | (unless cs-encode (setq cs-encode 'undecided)) | 4201 | (unless cs-encode (setq cs-encode 'undecided)) |
| 4201 | (setq cs-encode (tramp-compat-coding-system-change-eol-conversion | 4202 | (setq cs-encode |
| 4202 | cs-encode 'unix)) | 4203 | (tramp-compat-coding-system-change-eol-conversion |
| 4204 | cs-encode | ||
| 4205 | (if (string-match | ||
| 4206 | "^Darwin" (tramp-get-connection-property vec "uname" "")) | ||
| 4207 | 'mac 'unix))) | ||
| 4203 | (tramp-send-command vec "echo foo ; echo bar" t) | 4208 | (tramp-send-command vec "echo foo ; echo bar" t) |
| 4204 | (goto-char (point-min)) | 4209 | (goto-char (point-min)) |
| 4205 | (when (search-forward "\r" nil t) | 4210 | (when (search-forward "\r" nil t) |