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

Improve Tramp messages

Browse source 
* lisp/net/tramp-message.el (tramp-debug-message): Publish the
name of the debug file name.
This commit is contained in:
Michael Albinus 2023-09-16 20:35:57 +02:00
parent f0f4cbfe87
commit 9e736d254a
1 changed files with 18 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

33
lisp/net/tramp-message.el
View file

@ -236,9 +236,12 @@ ARGUMENTS to actually emit the message (if applicable)."
tramp-trace-functions))
(unless (get elt 'tramp-suppress-trace)
(trace-function-background elt (tramp-trace-buffer-name vec)))))
;; Delete debug file.
;; Delete debug file. Announce its further existence.
(when (and tramp-debug-to-file (tramp-get-debug-file-name vec))
(ignore-errors (delete-file (tramp-get-debug-file-name vec)))))
(ignore-errors (delete-file (tramp-get-debug-file-name vec)))
(let ((message-log-max t))
(message
"Tramp debug file is %s" (tramp-get-debug-file-name vec)))))
(unless (bolp)
(insert "\n"))
;; Timestamp.
@ -301,18 +304,6 @@ applicable)."
(if tramp-debug-command-messages
(max tramp-verbose 6) tramp-verbose)))
(when (<= level tramp-verbose)
;; Display only when there is a minimum level, and the
;; progress reporter doesn't suppress further messages.
(when (and (<= level 3) (null tramp-inhibit-progress-reporter))
(apply #'message
(concat
(cond
((= level 0) "")
((= level 1) "")
((= level 2) "Warning: ")
(t "Tramp: "))
fmt-string)
arguments))
;; Log only when there is a minimum level.
(when (>= tramp-verbose 4)
(let ((tramp-verbose 0))
@ -338,7 +329,19 @@ applicable)."
(apply #'tramp-debug-message
vec-or-proc
(concat (format "(%d) # " level) fmt-string)
arguments)))))))
arguments)))
;; Display only when there is a minimum level, and the
;; progress reporter doesn't suppress further messages.
(when (and (<= level 3) (null tramp-inhibit-progress-reporter))
(apply #'message
(concat
(cond
((= level 0) "")
((= level 1) "")
((= level 2) "Warning: ")
(t "Tramp: "))
fmt-string)
arguments))))))
;; We cannot use the `declare' form for `tramp-suppress-trace' in
;; autoloaded functions, because the tramp-loaddefs.el generation