diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2011-02-28 11:58:59 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2011-02-28 11:58:59 +0100 |
| commit | 22b300dea0c02b7b7ce32a399ceec3ee603b2bed (patch) | |
| tree | d3740fc64bc96ea6db507dc61f92372e658cf502 /lisp/net/tramp-cmds.el | |
| parent | 584a2773996c7f4cd9d84ede8d7817328c88e765 (diff) | |
| download | emacs-22b300dea0c02b7b7ce32a399ceec3ee603b2bed.tar.gz emacs-22b300dea0c02b7b7ce32a399ceec3ee603b2bed.tar.bz2 emacs-22b300dea0c02b7b7ce32a399ceec3ee603b2bed.zip | |
* net/tramp-cmds.el (tramp-append-tramp-buffers): Dump load-path shadows.
Diffstat (limited to 'lisp/net/tramp-cmds.el')
| -rw-r--r-- | lisp/net/tramp-cmds.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el index 7d266ad17d7..58f1e2c6a9e 100644 --- a/lisp/net/tramp-cmds.el +++ b/lisp/net/tramp-cmds.el @@ -281,6 +281,12 @@ buffer in your bug report. (insert ")\n")) (insert-buffer-substring elbuf))) + ;; Dump load-path shadows. + (insert "\nload-path shadows:\n==================\n") + (ignore-errors + (mapc (lambda (x) (when (string-match "tramp" x) (insert x "\n"))) + (split-string (list-load-path-shadows t) "\n"))) + ;; Append buffers only when we are in message mode. (when (and (eq major-mode 'message-mode) |