Mercurial > emacs
diff lisp/files.el @ 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 | 366109711118 |
children | aac0a33f5772 3dcba0bc766b fa9654493afb |
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