From: Andreas Schwab Date: Wed, 26 Jul 2000 16:56:22 +0000 (+0000) Subject: (normal-backup-enable-predicate): Correct X-Git-Tag: emacs-pretest-21.0.90~2593 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f1bba07d31847747f42ea8a743eff888daf091b2;p=emacs.git (normal-backup-enable-predicate): Correct interpretation of the return value of compare-strings. --- diff --git a/lisp/files.el b/lisp/files.el index 7dd82e6f2fb..0da412b91a2 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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.