Mercurial > emacs

comparison lisp/files.el @ 90099:fa9654493afb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.