non-working make-backup-file-name-function var in 21

[Rob Giardina]

  >> In GNU Emacs 21.1.1 (i386-msvc-nt5.1.2600)
  >>  of 2001-10-22 on buffy
  >> configured using `configure --with-msvc (12.00)'

I wrote a customized make-backup-file-name-function and found that it
wasn't being called. I think the v21 changes to support backup-dir
functionality introduced this problem. Here's a diff of files.el that
I think fixes it:

--- files.el.old        2002-08-26 13:09:17.000000000 -0700
+++ files.el    2002-08-26 12:56:32.000000000 -0700
@@ -2399,7 +2399,7 @@
              (and (eq system-type 'ms-dos)
                   (not (msdos-long-file-names))))
          (list (make-backup-file-name fn))
-       (let* ((basic-name (make-backup-file-name-1 fn))
+       (let* ((basic-name (make-backup-file-name fn))
               (base-versions (concat (file-name-nondirectory basic-name)
                                      ".~"))
               (backup-extract-version-start (length base-versions))

The problem was that make-backup-file-name-1 was called directly which
bypasses the check for a customized make-backup-file-name-function.

Regards,
Rob Giardina