mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(normal-backup-enable-predicate): Correct

Browse Source 
interpretation of the return value of compare-strings.
This commit is contained in:
Andreas Schwab 2000-07-26 16:56:22 +00:00
parent 3353ef5a44
commit f1bba07d31
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/files.el
View File

@ -141,14 +141,14 @@ Checks for files in `temporary-file-directory' or
name 0 nil)))
;; Directory is under temporary-file-directory.
(and (not (eq comp t))
(< comp -1)))
(< comp (- (length temporary-file-directory)))))
(if small-temporary-file-directory
(let ((comp (compare-strings small-temporary-file-directory
0 nil
name 0 nil)))
;; Directory is under small-temporary-file-directory.
(and (not (eq comp t))
(< comp -1)))))))
(< comp (- (length small-temporary-file-directory)))))))))
(defvar backup-enable-predicate 'normal-backup-enable-predicate
"Predicate that looks at a file name and decides whether to make backups.