Some doc about electric-indent-mode.

[gnu-emacs] / lisp / net / tramp-cache.el

diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index 7407f83e92b319b61b73a385d8998246b8838ca1..825731c5ce84f986bb9a0667d13411975f7f9961 100644 (file)
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -1,6 +1,6 @@
 ;;; tramp-cache.el --- file information caching for Tramp
 
-;; Copyright (C) 2000, 2005-2013 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2005-2014 Free Software Foundation, Inc.
 
 ;; Author: Daniel Pittman <daniel@inanna.danann.net>
 ;;         Michael Albinus <michael.albinus@gmx.de>
@@ -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)"
@@ -402,6 +405,7 @@ for all methods.  Resulting data are derived from connection history."
       (with-temp-buffer
        (insert-file-contents tramp-persistency-file-name)
        (let ((list (read (current-buffer)))
+             (tramp-verbose 0)
              element key item)
          (while (setq element (pop list))
            (setq key (pop element))