changeset 59785:62b62ef62937

(normal-backup-enable-predicate): Return nil for files in /tmp, regardless of temporary-file-directory.
author Richard M. Stallman <rms@gnu.org>
date Sat, 29 Jan 2005 17:28:00 +0000
parents 71d8a58f6f27
children aa04ceecde25
files lisp/files.el
diffstat 1 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Sat Jan 29 17:27:13 2005 +0000
+++ b/lisp/files.el	Sat Jan 29 17:28:00 2005 +0000
@@ -2844,13 +2844,18 @@
 
 (defun normal-backup-enable-predicate (name)
   "Default `backup-enable-predicate' function.
-Checks for files in `temporary-file-directory' or
-`small-temporary-file-directory'."
+Checks for files in `temporary-file-directory',
+`small-temporary-file-directory', and /tmp."
   (not (or (let ((comp (compare-strings temporary-file-directory 0 nil
 					name 0 nil)))
 	     ;; Directory is under temporary-file-directory.
 	     (and (not (eq comp t))
 		  (< comp (- (length temporary-file-directory)))))
+	   (let ((comp (compare-strings "/tmp" 0 nil
+					name 0 nil)))
+	     ;; Directory is under /tmp.
+	     (and (not (eq comp t))
+		  (< comp (- (length "/tmp")))))
 	   (if small-temporary-file-directory
 	       (let ((comp (compare-strings small-temporary-file-directory
 					    0 nil