[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/net tramp-cache.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs/lisp/net tramp-cache.el |
Date: |
Thu, 04 Dec 2008 20:42:29 +0000 |
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