* net/tramp-cache.el (tramp-dump-connection-properties): Polish

the check, whether to dump the data.

1 files changed, 34 insertions, 34 deletions

diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index 466cd7f5a41..f0ba15548f9 100644
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -251,40 +251,40 @@ KEY identifies the connection, it is either a process or a vector."
 (defun tramp-dump-connection-properties ()
   "Write persistent connection properties into file `tramp-persistency-file-name'."
   ;; We shouldn't fail, otherwise (X)Emacs might not be able to be closed.
-  (when tramp-cache-data-changed
-    (condition-case nil
-        (when (and (hash-table-p tramp-cache-data)
-                   (not (zerop (hash-table-count tramp-cache-data)))
-                   (stringp tramp-persistency-file-name))
-          (let ((cache (copy-hash-table tramp-cache-data)))
-            ;; Remove temporary data.
-            (maphash
-             '(lambda (key value)
-                (if (and (vectorp key) (not (tramp-file-name-localname key)))
-                    (progn
-                      (remhash "process-name" value)
-                      (remhash "process-buffer" value))
-                  (remhash key cache)))
-             cache)
-            ;; Dump it.
-            (with-temp-buffer
-              (insert
-               ";; -*- emacs-lisp -*-"
-               ;; `time-stamp-string' might not exist in all (X)Emacs flavors.
-               (condition-case nil
-                   (progn
-                     (format
-                      " <%s %s>\n"
-                      (time-stamp-string "%02y/%02m/%02d %02H:%02M:%02S")
-                      tramp-persistency-file-name))
-                 (error "\n"))
-               ";; Tramp connection history.  Don't change this file.\n"
-               ";; You can delete it, forcing Tramp to reapply the checks.\n\n"
-               (with-output-to-string
-                 (pp (read (format "(%s)" (tramp-cache-print cache))))))
-              (write-region
-               (point-min) (point-max) tramp-persistency-file-name))))
-      (error nil))))
+  (condition-case nil
+      (when (and (hash-table-p tramp-cache-data)
+                 (not (zerop (hash-table-count tramp-cache-data)))
+                 tramp-cache-data-changed
+                 (stringp tramp-persistency-file-name))
+        (let ((cache (copy-hash-table tramp-cache-data)))
+          ;; Remove temporary data.
+          (maphash
+           '(lambda (key value)
+              (if (and (vectorp key) (not (tramp-file-name-localname key)))
+                  (progn
+                    (remhash "process-name" value)
+                    (remhash "process-buffer" value))
+                (remhash key cache)))
+           cache)
+          ;; Dump it.
+          (with-temp-buffer
+            (insert
+             ";; -*- emacs-lisp -*-"
+             ;; `time-stamp-string' might not exist in all (X)Emacs flavors.
+             (condition-case nil
+                 (progn
+                   (format
+                    " <%s %s>\n"
+                    (time-stamp-string "%02y/%02m/%02d %02H:%02M:%02S")
+                    tramp-persistency-file-name))
+               (error "\n"))
+             ";; Tramp connection history.  Don't change this file.\n"
+             ";; You can delete it, forcing Tramp to reapply the checks.\n\n"
+             (with-output-to-string
+               (pp (read (format "(%s)" (tramp-cache-print cache))))))
+            (write-region
+             (point-min) (point-max) tramp-persistency-file-name))))
+    (error nil)))
 
 (add-hook 'kill-emacs-hook 'tramp-dump-connection-properties)
 (add-hook 'tramp-cache-unload-hook