[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/net tramp.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs/lisp/net tramp.el |
Date: |
Sun, 29 Nov 2009 20:05:23 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Michael Albinus <albinus> 09/11/29 20:05:23
Modified files:
lisp/net : tramp.el
Log message:
* net/tramp.el (tramp-maybe-open-connection): Open the remote
shell with "exec" when possible. This prevents trailing prompts
in `start-file-process'.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp.el?cvsroot=emacs&r1=1.271&r2=1.272
Patches:
Index: tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.271
retrieving revision 1.272
diff -u -b -r1.271 -r1.272
--- tramp.el 24 Nov 2009 10:25:58 -0000 1.271
+++ tramp.el 29 Nov 2009 20:05:23 -0000 1.272
@@ -7227,6 +7227,9 @@
(?t . ,tmpfile))
command
(concat
+ ;; We do not want to see the trailing local prompt in
+ ;; `start-file-process'.
+ (unless (memq system-type '(windows-nt)) "exec ")
command " "
(mapconcat
(lambda (x)
@@ -7236,7 +7239,7 @@
;; Local shell could be a Windows COMSPEC. It doesn't
;; know the ";" syntax, but we must exit always for
;; `start-file-process'. "exec" does not work either.
- " && exit || exit"))
+ (if (memq system-type '(windows-nt)) " && exit || exit")))
;; Send the command.
(tramp-message vec 3 "Sending command `%s'" command)
- [Emacs-diffs] emacs/lisp/net tramp.el, Michael Albinus, 2009/11/07
- [Emacs-diffs] emacs/lisp/net tramp.el, Michael Albinus, 2009/11/08
- [Emacs-diffs] emacs/lisp/net tramp.el, Michael Albinus, 2009/11/11
- [Emacs-diffs] emacs/lisp/net tramp.el, Michael Albinus, 2009/11/17
- [Emacs-diffs] emacs/lisp/net tramp.el, Michael Albinus, 2009/11/19
- [Emacs-diffs] emacs/lisp/net tramp.el, Michael Albinus, 2009/11/23
- [Emacs-diffs] emacs/lisp/net tramp.el,
Michael Albinus <=