[Emacs-diffs] trunk r113922: * net/tramp-cmds.el (top): Don't declare `buffer-name'.

[Michael Albinus]

------------------------------------------------------------
revno: 113922
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Fri 2013-08-16 14:41:17 +0200
message:
  * net/tramp-cmds.el (top): Don't declare `buffer-name'.
  (tramp-append-tramp-buffers): Rewrite buffer local variables part.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/tramp-cmds.el         
trampcmds.el-20091113204419-o5vbwnq5f7feedwu-7524

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-16 09:44:32 +0000
+++ b/lisp/ChangeLog    2013-08-16 12:41:17 +0000
@@ -1,3 +1,8 @@
+2013-08-16  Michael Albinus  <address@hidden>
+
+       * net/tramp-cmds.el (top): Don't declare `buffer-name'.
+       (tramp-append-tramp-buffers): Rewrite buffer local variables part.
+
 2013-08-16  Martin Rudalics  <address@hidden>
 
        * window.el (mouse-autoselect-window-select): Do autoselect when

=== modified file 'lisp/net/tramp-cmds.el'
--- a/lisp/net/tramp-cmds.el    2013-08-15 17:02:09 +0000
+++ b/lisp/net/tramp-cmds.el    2013-08-16 12:41:17 +0000
@@ -32,7 +32,6 @@
 
 ;; Pacify byte-compiler.
 (eval-when-compile
-  (defvar buffer-name)
   (defvar reporter-eval-buffer)
   (defvar reporter-prompt-for-summary-p))
 
@@ -272,6 +271,7 @@
   (goto-char (point-max))
 
   ;; Dump buffer local variables.
+  (insert "\nlocal variables:\n================")
   (dolist (buffer
           (delq nil
                 (mapcar
@@ -279,21 +279,23 @@
                     (when (string-match "\\*tramp/" (buffer-name b)) b))
                  (buffer-list))))
     (let ((reporter-eval-buffer buffer)
-         (buffer-name (buffer-name buffer))
          (elbuf (get-buffer-create " *tmp-reporter-buffer*")))
       (with-current-buffer elbuf
        (emacs-lisp-mode)
        (erase-buffer)
-       (insert "\n(setq\n")
+       (insert (format "\n;; %s\n(setq-local\n" (buffer-name buffer)))
        (lisp-indent-line)
-       (tramp-compat-funcall
-        'reporter-dump-variable 'buffer-name (current-buffer))
-       (dolist (varsym-or-cons-cell (buffer-local-variables buffer))
-         (let ((varsym (or (car-safe varsym-or-cons-cell)
-                           varsym-or-cons-cell)))
-           (when (string-match "tramp" (symbol-name varsym))
-             (tramp-compat-funcall
-              'reporter-dump-variable varsym (current-buffer)))))
+       (dolist
+           (varsym
+            (sort
+             (append
+              (mapcar
+               'intern
+               (all-completions "tramp-" (buffer-local-variables buffer)))
+              ;; Non-tramp variables of interest.
+              '(default-directory))
+             'string<))
+           (tramp-compat-funcall 'reporter-dump-variable varsym elbuf))
        (lisp-indent-line)
        (insert ")\n"))
       (insert-buffer-substring elbuf)))