[Emacs-diffs] trunk r114496: Sync with Tramp 2.2.8.

[Michael Albinus]

------------------------------------------------------------
revno: 114496
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Wed 2013-10-02 15:48:20 +0200
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/tramp-cache.el        
trampcache.el-20091113204419-o5vbwnq5f7feedwu-5065
  lisp/net/tramp-cmds.el         
trampcmds.el-20091113204419-o5vbwnq5f7feedwu-7524
  lisp/net/trampver.el           
trampver.el-20091113204419-o5vbwnq5f7feedwu-2564

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-10-01 18:22:48 +0000
+++ b/lisp/ChangeLog    2013-10-02 13:48:20 +0000
@@ -1,3 +1,11 @@
+2013-10-02  Michael Albinus  <address@hidden>
+
+       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  <address@hidden>
 
        * term/ns-win.el (ns-initialize-window-system): Set locale-coding-system

=== modified file 'lisp/net/tramp-cache.el'
--- a/lisp/net/tramp-cache.el   2013-09-13 06:03:06 +0000
+++ b/lisp/net/tramp-cache.el   2013-10-02 13:48:20 +0000
@@ -291,11 +291,14 @@
           (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)"

=== modified file 'lisp/net/tramp-cmds.el'
--- a/lisp/net/tramp-cmds.el    2013-09-10 07:45:33 +0000
+++ b/lisp/net/tramp-cmds.el    2013-10-02 13:48:20 +0000
@@ -194,7 +194,7 @@
 
        '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 @@
              (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"))

=== modified file 'lisp/net/trampver.el'
--- a/lisp/net/trampver.el      2013-03-18 13:04:13 +0000
+++ b/lisp/net/trampver.el      2013-10-02 13:48:20 +0000
@@ -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)))