/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.743 by teirllm, Sun Jan 23 20:40:21 2005 UTC revision 1.744 by rms, Sat Jan 29 17:28:00 2005 UTC
# Line 2844  ignored." Line 2844  ignored."
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

Legend:
Removed from v.1.743  
changed lines
  Added in v.1.744

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26