[Emacs-diffs] /srv/bzr/emacs/trunk r103451: * net/tramp-cmds.el (tramp-append-tramp-buffers): Dump load-path shadows.

[Michael Albinus]

------------------------------------------------------------
revno: 103451
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Mon 2011-02-28 11:58:59 +0100
message:
  * net/tramp-cmds.el (tramp-append-tramp-buffers): Dump load-path shadows.
modified:
  lisp/ChangeLog
  lisp/net/tramp-cmds.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-28 07:24:39 +0000
+++ b/lisp/ChangeLog    2011-02-28 10:58:59 +0000
@@ -1,3 +1,8 @@
+2011-02-28  Michael Albinus  <address@hidden>
+
+       * net/tramp-cmds.el (tramp-append-tramp-buffers): Dump load-path
+       shadows.
+
 2011-02-28  Antoine Levitt  <address@hidden>  (tiny change)
 
        * dired-x.el (dired-guess-shell-alist-default): Add rar and 7z.

=== modified file 'lisp/net/tramp-cmds.el'
--- a/lisp/net/tramp-cmds.el    2011-01-25 04:08:28 +0000
+++ b/lisp/net/tramp-cmds.el    2011-02-28 10:58:59 +0000
@@ -281,6 +281,12 @@
        (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)