diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2011-01-18 16:33:24 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2011-01-18 16:33:24 +0100 |
| commit | 567611822a824fb832587db623bfb6854ff156db (patch) | |
| tree | 3805f2cb172c75da58864b8a3aa9259c4fafbef1 /lisp/net/tramp.el | |
| parent | 9cc28d9bd7e1cb1f190fb0898bb4982d1bc56dcf (diff) | |
| download | emacs-567611822a824fb832587db623bfb6854ff156db.tar.gz | |
* net/tramp.el (tramp-debug-message): Extend function exclude
list. Use `regexp-opt'.
Diffstat (limited to 'lisp/net/tramp.el')
| -rw-r--r-- | lisp/net/tramp.el | 24 |
1 files changed, 19 insertions, 5 deletions
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. |