Commit a2f93a5f authored by Michael Albinus's avatar Michael Albinus
Browse files

Sync with Tramp 2.2.8.

* net/tramp-cmds.el (tramp-bug, tramp-append-tramp-buffers):
* net/tramp-cache.el (tramp-cache-print): Use `tramp-compat-funcall'.
* net/trampver.el: Update release number.
parent 29bf4de4
2013-10-02 Michael Albinus <michael.albinus@gmx.de>
Sync with Tramp 2.2.8.
* net/tramp-cmds.el (tramp-bug, tramp-append-tramp-buffers):
* net/tramp-cache.el (tramp-cache-print): Use `tramp-compat-funcall'.
* net/trampver.el: Update release number.
2013-10-01 Jan Djärv <jan.h.d@swipnet.se>
* term/ns-win.el (ns-initialize-window-system): Set locale-coding-system
......
......@@ -291,11 +291,14 @@ KEY identifies the connection, it is either a process or a vector."
(when (vectorp key)
(dotimes (i (length key))
(when (stringp (aref key i))
(aset key i (funcall 'substring-no-properties (aref key i))))))
(aset key i
(tramp-compat-funcall
'substring-no-properties (aref key i))))))
(when (stringp key)
(setq key (funcall 'substring-no-properties key)))
(setq key (tramp-compat-funcall 'substring-no-properties key)))
(when (stringp value)
(setq value (funcall 'substring-no-properties value))))
(setq value
(tramp-compat-funcall 'substring-no-properties value))))
;; Dump.
(let ((tmp (format
"(%s %s)"
......
......@@ -194,7 +194,7 @@ This includes password cache, file cache, connection cache, buffers."
'tramp-load-report-modules ; pre-hook
'tramp-append-tramp-buffers ; post-hook
(funcall
(tramp-compat-funcall
(if (functionp 'propertize) 'propertize 'progn)
"\n" 'display "\
Enter your bug report in this message, including as much detail
......@@ -361,7 +361,7 @@ the debug buffer(s).")
(kill-buffer nil)
(switch-to-buffer curbuf)
(goto-char (point-max))
(insert (propertize "\n" 'display "\n\
(insert (tramp-compat-funcall 'propertize "\n" 'display "\n\
This is a special notion of the `gnus/message' package. If you
use another mail agent (by copying the contents of this buffer)
please ensure that the buffers are attached to your email.\n\n"))
......
......@@ -31,7 +31,7 @@
;; should be changed only there.
;;;###tramp-autoload
(defconst tramp-version "2.2.8-pre"
(defconst tramp-version "2.2.8"
"This version of Tramp.")
;;;###tramp-autoload
......@@ -44,7 +44,7 @@
(= emacs-major-version 21)
(>= emacs-minor-version 4)))
"ok"
(format "Tramp 2.2.8-pre is not fit for %s"
(format "Tramp 2.2.8 is not fit for %s"
(when (string-match "^.*$" (emacs-version))
(match-string 0 (emacs-version)))))))
(unless (string-match "\\`ok\\'" x) (error "%s" x)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment