procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(make-auto-save-file-name): Replace both / and \

Browse source 
with sequences starting with %.
This commit is contained in:
Richard M. Stallman 1997-03-29 00:32:54 +00:00
parent 9201fa0683
commit c3348e101b
1 changed files with 11 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/files.el
View file

@ -2578,20 +2578,17 @@ See also `auto-save-file-name-p'."
(let ((buffer-name (buffer-name))
(limit 0))
;; Use technique from Sebastian Kremer's auto-save
;; package to turn slashes into \\!. This ensures that
;; the auto-save buffer name is unique.
(while (string-match "[/\\]" buffer-name limit)
(setq buffer-name (concat (substring buffer-name 0 (match-beginning 0))
(if (string= (substring buffer-name
(match-beginning 0)
(match-end 0))
"/")
"\\!"
"\\\\")
(substring buffer-name (match-end 0))))
(setq limit (1+ (match-end 0))))
;; Eliminate all slashes and backslashes by
;; replacing them with sequences that start with %.
;; Quote % also, to keep distinct names distinct.
(while (string-match "[/\\%]" buffer-name limit)
(let* ((character (aref buffer-name (match-beginning 0)))
(replacement
(cond ((eq character ?%) "%%")
((eq character ?/) "%+")
((eq character ?\\) "%-"))))
(setq buffer-name (replace-match replacement t t buffer-name))
(setq limit (1+ (match-end 0)))))
;; Generate the file name.
(expand-file-name
(format "#%s#%s#" buffer-name (make-temp-name ""))