mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 06:01:22 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/net/tramp.el (tramp-call-process): Add traces.

Browse source
This commit is contained in:
Michael Albinus 2014-06-02 11:58:50 +02:00
parent 84dbe84b9f
commit c8291a36aa
2 changed files with 19 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2014-06-02 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-call-process): Add traces.
2014-06-02 Wilson Snyder <wsnyder@wsnyder.org>
Sync with upstream verilog-mode revision 3cd8144.

21
lisp/net/tramp.el
View file

@ -4122,12 +4122,21 @@ This is needed because for some Emacs flavors Tramp has
defadvised `call-process' to behave like `process-file'. The
Lisp error raised when PROGRAM is nil is trapped also, returning 1.
Furthermore, traces are written with verbosity of 6."
(tramp-message
(vector tramp-current-method tramp-current-user tramp-current-host nil nil)
6 "`%s %s' %s %s" program (mapconcat 'identity args " ") infile destination)
(if (executable-find program)
(apply 'call-process program infile destination display args)
1))
(let ((v (vector tramp-current-method tramp-current-user tramp-current-host
nil nil))
(result 1))
(tramp-message
v 6 "`%s %s' %s %s"
program (mapconcat 'identity args " ") infile destination)
(when (executable-find program)
(with-temp-buffer
(setq result
(apply
'call-process program infile (or destination t) display args))
(with-current-buffer
(if (bufferp destination) destination (current-buffer))
(tramp-message v 6 "%d\n%s" result (buffer-string)))))
result))
;;;###tramp-autoload
(defun tramp-read-passwd (proc &optional prompt)