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 <>
* files.el (find-backup-file-name): Use make-backup-file-name.
* emacs-lisp/edebug.el (edebug-window-live-p): Always alias to
(edebug-set-conditional-breakpoint): Unconditionally use
......@@ -2439,7 +2439,7 @@ Uses `backup-directory-alist' in the same way as does
(file-error (setq possibilities nil)))
(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))
(if (and (> number-to-delete 0)
;; 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