mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(make-legal-file-name): New obsolete alias.

Browse Source 
(make-valid-file-name): Rename from `make-legal-file-name'.
(make-auto-save-file-name): Use it.
This commit is contained in:
Juanma Barranquero 2008-03-06 15:00:14 +00:00
parent e8db5c599d
commit e6e78fb57a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/vms-patch.el
View File

@ -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'.