HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7987a16
)
(find-backup-file-name): delete nothing if overflow in number of files to keep.
author
Noah Friedman
<friedman@splode.com>
Tue, 30 Mar 1993 22:21:03 +0000
(22:21 +0000)
committer
Noah Friedman
<friedman@splode.com>
Tue, 30 Mar 1993 22:21:03 +0000
(22:21 +0000)
lisp/files.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/files.el
b/lisp/files.el
index
b8cb0a0
..
fe3a29c
100644
(file)
--- a/
lisp/files.el
+++ b/
lisp/files.el
@@
-1141,7
+1141,10
@@
Value is a list whose car is the name for the backup file
(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)))