[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r113922: * net/tramp-cmds.el (top): Don't declare `b
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] trunk r113922: * net/tramp-cmds.el (top): Don't declare `buffer-name'. |
Date: |
Fri, 16 Aug 2013 12:41:55 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r113922: * net/tramp-cmds.el (top): Don't declare `buffer-name'.,
Michael Albinus <=