CVS update by albinus packages/xemacs-packages/tramp/lisp ...

[xemacs-cvs at xemacs.org]

  User: albinus 
  Date: 07/03/21 22:24:44

  Modified:    packages/xemacs-packages/tramp/lisp ChangeLog tramp.el
Log:
* lisp/tramp.el (tramp-handle-make-auto-save-file-name): Apply
`tramp-temporary-file-directory for compatibility reasons.

Revision  Changes    Path
1.40      +5 -0      XEmacs/packages/xemacs-packages/tramp/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/tramp/lisp/ChangeLog,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -p -r1.39 -r1.40
--- ChangeLog	2007/01/15 20:32:21	1.39
+++ ChangeLog	2007/03/21 21:24:43	1.40
@@ -1,3 +1,8 @@
+2007-03-21  Michael Albinus  <michael.albinus at gmx.de>
+
+	* tramp.el (tramp-handle-make-auto-save-file-name): Apply
+	`tramp-temporary-file-directory for compatibility reasons.
+
 2007-01-15  Michael Albinus  <michael.albinus at gmx.de>
 
 	* tramp.el (with-parsed-tramp-file-name): Protect debug spec



1.40      +2 -1      XEmacs/packages/xemacs-packages/tramp/lisp/tramp.el

Index: tramp.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/tramp/lisp/tramp.el,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -p -r1.39 -r1.40
--- tramp.el	2007/01/15 20:32:21	1.39
+++ tramp.el	2007/03/21 21:24:43	1.40
@@ -3965,7 +3965,8 @@ Returns a file name in `tramp-auto-save-
 	  (when (and (string-match (car x) buffer-file-name)
 		     (not (car (cddr x))))
 	    (setq tramp-auto-save-directory
-		  (or tramp-auto-save-directory temporary-file-directory))))
+		  (or tramp-auto-save-directory
+		      (tramp-temporary-file-directory)))))
        (symbol-value 'auto-save-file-name-transforms)))
     ;; Create directory.
     (when tramp-auto-save-directory