From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 13 Nov 2019 14:55:35 +0000 (+0100)
Subject: Finish last Tramp patch
X-Git-Tag: emacs-27.0.90~645
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65fb04801c59ac204790e0a5c0599c9b11151f32;p=emacs.git

Finish last Tramp patch

* lisp/net/tramp.el (outline-regexp): Remove declaration.
(tramp-debug-outline-regexp): Add thread regexp.
(tramp-debug-font-lock-keywords): New defconst.
(tramp-debug-outline-level): Adapt to changed
`tramp-debug-outline-regexp'.
(tramp-get-debug-buffer): Use `tramp-debug-font-lock-keywords'.
---

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index ab1b4d354f7..99c93eaa573 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1648,7 +1648,11 @@ version, the function does nothing."
       (format "*debug tramp/%s %s*" method host-port))))
 
 (defconst tramp-debug-outline-regexp
-  "[0-9]+:[0-9]+:[0-9]+\\.[0-9]+ [a-z0-9-]+ (\\([0-9]+\\)) #"
+  (eval-when-compile
+    (concat
+     "[0-9]+:[0-9]+:[0-9]+\\.[0-9]+ " ;; Timestamp.
+     "\\(?:\\(#<thread .+>\\) \\)?"   ;; Thread.
+     "[a-z0-9-]+ (\\([0-9]+\\)) #"))  ;; Function name, verbosity.
   "Used for highlighting Tramp debug buffers in `outline-mode'.")
 
 (defconst tramp-debug-font-lock-keywords
@@ -1663,7 +1667,7 @@ version, the function does nothing."
 Point must be at the beginning of a header line.
 
 The outline level is equal to the verbosity of the Tramp message."
-  (1+ (string-to-number (match-string 1))))
+  (1+ (string-to-number (match-string 2))))
 
 (defun tramp-get-debug-buffer (vec)
   "Get the debug buffer for VEC."