Mercurial > emacs

changeset 30478:6a3d62cf1d6f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(normal-backup-enable-predicate): Correct interpretation of the return value of compare-strings.
author Andreas Schwab <schwab@suse.de>
date Wed, 26 Jul 2000 16:56:22 +0000
parents 5996e9860cd2
children bc0a97df8aed
files lisp/files.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Wed Jul 26 14:48:48 2000 +0000
+++ b/lisp/files.el	Wed Jul 26 16:56:22 2000 +0000
@@ -141,14 +141,14 @@
 					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.