From 063e5167c85d40df6c49ae35d7c74285eb2612c8 Mon Sep 17 00:00:00 2001
From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 4 Dec 2008 20:42:29 +0000
Subject: [PATCH] * net/tramp-cache.el (tramp-dump-connection-properties):
 Polish the check, whether to dump the data.

---
 lisp/net/tramp-cache.el | 68 ++++++++++++++++++++---------------------
 1 file 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
-- 
2.39.2