Bug fix for vc-dispatcher split.

[bpt/emacs.git] / lisp / vms-patch.el

diff --git a/lisp/vms-patch.el b/lisp/vms-patch.el
index 4357704..1bc85e3 100644 (file)
--- a/lisp/vms-patch.el
+++ b/lisp/vms-patch.el
@@ -43,9 +43,9 @@ FILENAME (sans directory) is used unchanged if that name is free;
 otherwise a string <2> or <3> or ... is appended to get an unused name."
   (generate-new-buffer (downcase (file-name-nondirectory filename))))
 
-;;; Given a string FN, return a similar name which is a legal VMS filename.
+;;; Given a string FN, return a similar name which is a valid VMS filename.
 ;;; This is used to avoid invalid auto save file names.
-(defun make-legal-file-name (fn)
+(defun make-valid-file-name (fn)
   (setq fn (copy-sequence fn))
   (let ((dot nil) (indx 0) (len (length fn)) chr)
     (while (< indx len)
@@ -59,6 +59,8 @@ otherwise a string <2> or <3> or ... is appended to get an unused name."
       (setq indx (1+ indx))))
   fn)
 
+(define-obsolete-function-alias 'make-legal-file-name 'make-valid-file-name "23.1")
+
 ;;; Auto save filesnames start with _$ and end with $.
 
 (defun make-auto-save-file-name ()
@@ -73,7 +75,7 @@ See also `auto-save-file-name-p'."
              "_$"
              (file-name-nondirectory buffer-file-name)
              "$")
-    (expand-file-name (concat "_$_" (make-legal-file-name (buffer-name)) "$"))))
+    (expand-file-name (concat "_$_" (make-valid-file-name (buffer-name)) "$"))))
 
 (defun auto-save-file-name-p (filename)
   "Return t if FILENAME can be yielded by `make-auto-save-file-name'.
@@ -264,5 +266,5 @@ the old one."
   (define-key m "/" 'vms-magic-right-square-brace)
   (define-key m ":" 'vms-magic-colon))
 
-;;; arch-tag: c178494e-2c37-4d02-99b7-e47e615656cf
+;; arch-tag: c178494e-2c37-4d02-99b7-e47e615656cf
 ;;; vms-patch.el ends here