* net/tramp-sh.el (tramp-sh-handle-start-file-process): Use a

human-friendly prompt.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e517d6c..0c912db 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-08  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp-sh.el (tramp-sh-handle-start-file-process): Use a
+       human-friendly prompt.
+
 2011-07-08  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * 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 f342b00..1c6f084 100644 (file)
--- 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