2844 |
|
|
2845 |
(defun normal-backup-enable-predicate (name) |
(defun normal-backup-enable-predicate (name) |
2846 |
"Default `backup-enable-predicate' function. |
"Default `backup-enable-predicate' function. |
2847 |
Checks for files in `temporary-file-directory' or |
Checks for files in `temporary-file-directory', |
2848 |
`small-temporary-file-directory'." |
`small-temporary-file-directory', and /tmp." |
2849 |
(not (or (let ((comp (compare-strings temporary-file-directory 0 nil |
(not (or (let ((comp (compare-strings temporary-file-directory 0 nil |
2850 |
name 0 nil))) |
name 0 nil))) |
2851 |
;; Directory is under temporary-file-directory. |
;; Directory is under temporary-file-directory. |
2852 |
(and (not (eq comp t)) |
(and (not (eq comp t)) |
2853 |
(< comp (- (length temporary-file-directory))))) |
(< comp (- (length temporary-file-directory))))) |
2854 |
|
(let ((comp (compare-strings "/tmp" 0 nil |
2855 |
|
name 0 nil))) |
2856 |
|
;; Directory is under /tmp. |
2857 |
|
(and (not (eq comp t)) |
2858 |
|
(< comp (- (length "/tmp"))))) |
2859 |
(if small-temporary-file-directory |
(if small-temporary-file-directory |
2860 |
(let ((comp (compare-strings small-temporary-file-directory |
(let ((comp (compare-strings small-temporary-file-directory |
2861 |
0 nil |
0 nil |