Re: Redifine make-backup-file-name has no effect

[Jan D.]

In article <3BD964D4.C26E06E9@lu.erisoft.se>,
Jan Djärv <Jan.Djarv@epl.ericsson.se> wrote:

(about cutomizing make-backup-file-name-function does not call that
function, or at least still uses file~ as backup file name)

The error is in files.el, function find-backup-file-name.  It uses
the result from make-backup-file-name-1 directly, thus bypassing
the cutomization hook.

Here's a patch:

Index: lisp/files.el
--- lisp/files.el.orig  Sun Oct 28 15:13:39 2001
+++ lisp/files.el       Sun Oct 28 15:11:38 2001
@@ -2422,7 +2422,7 @@
                                        -1))
            (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


        Jan D.