From afae1d6821cbc2bf97c27fe99ec75ca9d40fd458 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 8 Jul 2011 16:25:25 +0200 Subject: [PATCH] * net/tramp-sh.el (tramp-sh-handle-start-file-process): Use a human-friendly prompt. --- lisp/ChangeLog | 5 +++++ lisp/net/tramp-sh.el | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletion(-) 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 -- 2.11.4.GIT