Mercurial > emacs
comparison lisp/files.el @ 90099:fa9654493afb
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-10
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-59
- miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-68
Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 02 Feb 2005 01:54:00 +0000 |
parents | befae6bafecb 62b62ef62937 |
children | 3ebd9bdb4fe5 |
comparison
equal
deleted
inserted
replaced
90098:59a447f7a6ba | 90099:fa9654493afb |
---|---|
2842 :type '(repeat (cons (regexp :tag "Regexp matching filename") | 2842 :type '(repeat (cons (regexp :tag "Regexp matching filename") |
2843 (directory :tag "Backup directory name")))) | 2843 (directory :tag "Backup directory name")))) |
2844 | 2844 |
2845 (defun normal-backup-enable-predicate (name) | 2845 (defun normal-backup-enable-predicate (name) |
2846 "Default `backup-enable-predicate' function. | 2846 "Default `backup-enable-predicate' function. |
2847 Checks for files in `temporary-file-directory' or | 2847 Checks for files in `temporary-file-directory', |
2848 `small-temporary-file-directory'." | 2848 `small-temporary-file-directory', and /tmp." |
2849 (not (or (let ((comp (compare-strings temporary-file-directory 0 nil | 2849 (not (or (let ((comp (compare-strings temporary-file-directory 0 nil |
2850 name 0 nil))) | 2850 name 0 nil))) |
2851 ;; Directory is under temporary-file-directory. | 2851 ;; Directory is under temporary-file-directory. |
2852 (and (not (eq comp t)) | 2852 (and (not (eq comp t)) |
2853 (< comp (- (length temporary-file-directory))))) | 2853 (< 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"))))) | |
2854 (if small-temporary-file-directory | 2859 (if small-temporary-file-directory |
2855 (let ((comp (compare-strings small-temporary-file-directory | 2860 (let ((comp (compare-strings small-temporary-file-directory |
2856 0 nil | 2861 0 nil |
2857 name 0 nil))) | 2862 name 0 nil))) |
2858 ;; Directory is under small-temporary-file-directory. | 2863 ;; Directory is under small-temporary-file-directory. |