[Emacs-diffs] Changes to emacs/lisp/vms-patch.el,v

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      08/03/06 15:00:14

Index: vms-patch.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vms-patch.el,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -b -r1.27 -r1.28
--- vms-patch.el        8 Jan 2008 20:44:49 -0000       1.27
+++ vms-patch.el        6 Mar 2008 15:00:14 -0000       1.28
@@ -43,9 +43,9 @@
 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 @@
       (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 @@
              "_$"
              (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'.