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

[Rob Giardina <rgiar@yahoo.com>]

  >> 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