Commit 8767d866 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(find-backup-file-name): Use make-backup-file-name.

parent 10b088c6
2001-10-29 Richard M. Stallman <rms@gnu.org> 2001-10-29 Richard M. Stallman <rms@gnu.org>
* files.el (find-backup-file-name): Use make-backup-file-name.
* emacs-lisp/edebug.el (edebug-window-live-p): Always alias to * emacs-lisp/edebug.el (edebug-window-live-p): Always alias to
window-live-p. window-live-p.
(edebug-set-conditional-breakpoint): Unconditionally use (edebug-set-conditional-breakpoint): Unconditionally use
......
...@@ -2439,7 +2439,7 @@ Uses `backup-directory-alist' in the same way as does ...@@ -2439,7 +2439,7 @@ Uses `backup-directory-alist' in the same way as does
-1)) -1))
(file-error (setq possibilities nil))) (file-error (setq possibilities nil)))
(if (not deserve-versions-p) (if (not deserve-versions-p)
(list (concat basic-name "~")) (list (make-backup-file-name fn))
(cons (format "%s.~%d~" basic-name (1+ high-water-mark)) (cons (format "%s.~%d~" basic-name (1+ high-water-mark))
(if (and (> number-to-delete 0) (if (and (> number-to-delete 0)
;; Delete nothing if there is overflow ;; Delete nothing if there is overflow
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment