From 567611822a824fb832587db623bfb6854ff156db Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 18 Jan 2011 16:33:24 +0100 Subject: [PATCH] * net/tramp.el (tramp-debug-message): Extend function exclude list. Use `regexp-opt'. --- lisp/ChangeLog | 5 +++++ lisp/net/tramp.el | 24 +++++++++++++++++++----- 2 files changed, 24 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e83a2cf61a4..7282231025e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-01-18 Michael Albinus + + * net/tramp.el (tramp-debug-message): Extend function exclude + list. Use `regexp-opt'. + 2011-01-18 Stefan Monnier * textmodes/tex-mode.el (tex-font-lock-verb): Make sure \verb diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index ef312af80ba..6fe176f28c8 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -1293,7 +1293,8 @@ ARGS to actually emit the message (if applicable)." (let ((now (current-time))) (insert (format-time-string "%T." now)) (insert (format "%06d " (nth 2 now)))) - ;; Calling function. + ;; Calling Tramp function. We suppress compat and trace + ;; functions from being displayed. (let ((btn 1) btf fn) (while (not fn) (setq btf (nth 1 (backtrace-frame btn))) @@ -1301,10 +1302,23 @@ ARGS to actually emit the message (if applicable)." (setq fn "") (when (symbolp btf) (setq fn (symbol-name btf)) - (unless (and (string-match "^tramp" fn) - (not (string-match - "^tramp\\(-debug\\)?\\(-message\\|-error\\|-compat\\(-funcall\\|-with-temp-message\\)\\)$" - fn))) + (unless + (and + (string-match "^tramp" fn) + (not + (string-match + (concat + "^" + (regexp-opt + '("tramp-compat-funcall" + "tramp-compat-with-temp-message" + "tramp-debug-message" + "tramp-error" + "tramp-error-with-buffer" + "tramp-message") + t) + "$") + fn))) (setq fn nil))) (setq btn (1+ btn)))) ;; The following code inserts filename and line number. -- 2.39.2