[Emacs-diffs] /srv/bzr/emacs/trunk r105041: * net/tramp-sh.el (tramp-sh-handle-start-file-process): Use a

[Michael Albinus]

------------------------------------------------------------
revno: 105041
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Fri 2011-07-08 16:25:25 +0200
message:
  * net/tramp-sh.el (tramp-sh-handle-start-file-process): Use a
  human-friendly prompt.
modified:
  lisp/ChangeLog
  lisp/net/tramp-sh.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-08 14:02:44 +0000
+++ b/lisp/ChangeLog    2011-07-08 14:25:25 +0000
@@ -1,3 +1,8 @@
+2011-07-08  Michael Albinus  <address@hidden>
+
+       * net/tramp-sh.el (tramp-sh-handle-start-file-process): Use a
+       human-friendly prompt.
+
 2011-07-08  Stefan Monnier  <address@hidden>
 
        * vc/vc-bzr.el (vc-bzr-revision-keywords): Remove svn, it's only

=== modified file 'lisp/net/tramp-sh.el'
--- a/lisp/net/tramp-sh.el      2011-07-04 12:12:38 +0000
+++ b/lisp/net/tramp-sh.el      2011-07-08 14:25:25 +0000
@@ -2690,8 +2690,13 @@
     ;; 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