Mercurial > emacs

changeset 100215:41af808a3cfa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/tramp-cache.el (tramp-dump-connection-properties): Polish the check, whether to dump the data.
author Michael Albinus <michael.albinus@gmx.de>
date Thu, 04 Dec 2008 20:42:29 +0000
parents 188994c9d7fe
children 9c5b974a0a5b
files lisp/net/tramp-cache.el
diffstat 1 files changed, 34 insertions(+), 34 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/tramp-cache.el	Thu Dec 04 18:10:34 2008 +0000
+++ b/lisp/net/tramp-cache.el	Thu Dec 04 20:42:29 2008 +0000
@@ -251,40 +251,40 @@
 (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