[Emacs-diffs] emacs/lisp/net tramp-cache.el

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       08/12/04 20:42:29

Modified files:
        lisp/net       : tramp-cache.el 

Log message:
        * net/tramp-cache.el (tramp-dump-connection-properties): Polish
        the check, whether to dump the data.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp-cache.el?cvsroot=emacs&r1=1.16&r2=1.17

Patches:
Index: tramp-cache.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp-cache.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- tramp-cache.el      1 Dec 2008 06:35:44 -0000       1.16
+++ tramp-cache.el      4 Dec 2008 20:42:29 -0000       1.17
@@ -251,10 +251,10 @@
 (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)))
+                tramp-cache-data-changed
                   (stringp tramp-persistency-file-name))
          (let ((cache (copy-hash-table tramp-cache-data)))
            ;; Remove temporary data.
@@ -284,7 +284,7 @@
                 (pp (read (format "(%s)" (tramp-cache-print cache))))))
              (write-region
               (point-min) (point-max) tramp-persistency-file-name))))
-      (error nil))))
+    (error nil)))
 
 (add-hook 'kill-emacs-hook 'tramp-dump-connection-properties)
 (add-hook 'tramp-cache-unload-hook