(normal-backup-enable-predicate): Correct

interpretation of the return value of compare-strings.

diff --git a/lisp/files.el b/lisp/files.el
index 7dd82e6f2fb311873306c5c351e1cf903b743ba7..0da412b91a23d16492fbcacf400762eeea5dc636 100644 (file)
--- 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.