procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
human-friendly prompt.
This commit is contained in:
Michael Albinus 2011-07-08 16:25:25 +02:00
parent 0757af948b
commit afae1d6821
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

7
lisp/net/tramp-sh.el
View file

@ -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