From: Michael Albinus Date: Fri, 8 Jul 2011 14:25:25 +0000 (+0200) Subject: * net/tramp-sh.el (tramp-sh-handle-start-file-process): Use a X-Git-Tag: emacs-pretest-24.0.90~104^2~425 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=afae1d6821cbc2bf97c27fe99ec75ca9d40fd458;p=emacs.git * net/tramp-sh.el (tramp-sh-handle-start-file-process): Use a human-friendly prompt. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e517d6cc54d..0c912db74d9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-07-08 Michael Albinus + + * net/tramp-sh.el (tramp-sh-handle-start-file-process): Use a + human-friendly prompt. + 2011-07-08 Stefan Monnier * vc/vc-bzr.el (vc-bzr-revision-keywords): Remove svn, it's only diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index f342b005c4c..1c6f0844be0 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el @@ -2690,8 +2690,13 @@ the result will be a local, non-Tramp, filename." ;; When PROGRAM is nil, we just provide a tty. (let ((command (when (stringp program) - (format "cd %s; exec %s" + (format "cd %s; exec env PS1=%s %s" (tramp-shell-quote-argument localname) + ;; Use a human-friendly prompt, for example for `shell'. + (tramp-shell-quote-argument + (format "%s %s" + (file-remote-p default-directory) + tramp-initial-end-of-output)) (mapconcat 'tramp-shell-quote-argument (cons program args) " ")))) (tramp-process-connection-type