# HG changeset patch
# User Noah Friedman <friedman@splode.com>
# Date 733530063 0
# Node ID 03e538cb97b810c7faea6cca8b1d6d7cd2a5548f
# Parent  094bec4c13e9873fdc5502c9b2d2417fec5dfebd
(find-backup-file-name): delete nothing if overflow in number of files to keep.

diff -r 094bec4c13e9 -r 03e538cb97b8 lisp/files.el
--- a/lisp/files.el	Tue Mar 30 21:31:15 1993 +0000
+++ b/lisp/files.el	Tue Mar 30 22:21:03 1993 +0000
@@ -1141,7 +1141,10 @@
       (if (not deserve-versions-p)
 	  (list (make-backup-file-name fn))
 	(cons (concat fn ".~" (int-to-string (1+ high-water-mark)) "~")
-	      (if (> number-to-delete 0)
+	      (if (and (> number-to-delete 0)
+                       ;; Delete nothing if there is overflow
+		       ;; in the number of versions to keep.
+		       (>= (+ kept-new-versions kept-old-versions -1) 0))
 		  (mapcar (function (lambda (n)
 				      (concat fn ".~" (int-to-string n) "~")))
 			  (let ((v (nthcdr kept-old-versions versions)))