Mercurial > emacs
changeset 7944:a114bbe9a63c
(make-auto-save-file-name): Convert slashes to \! and double the backslashes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 17 Jun 1994 21:42:34 +0000 |
| parents | 8053544ffe30 |
| children | db1785b91d03 |
| files | lisp/files.el |
| diffstat | 1 files changed, 20 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Fri Jun 17 20:35:16 1994 +0000 +++ b/lisp/files.el Fri Jun 17 21:42:34 1994 +0000 @@ -1950,14 +1950,27 @@ "#" (file-name-nondirectory buffer-file-name) "#") - ;; For non-file bfr, use bfr name and Emacs pid. - ;; Don't allow slashes, though; auto-save would try to interpret it - ;; as a pathname, and it might not exist. + + ;; Deal with buffers that don't have any associated files. (Mail + ;; mode tends to create a good number of these.) + (let ((buffer-name (buffer-name)) - (save-match-data (match-data))) - (while (string-match "/" buffer-name) - (aset buffer-name (match-beginning 0) ?-)) - (store-match-data save-match-data) + (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)))) + (expand-file-name (format "#%s#%s#" buffer-name (make-temp-name "")))))) (defun auto-save-file-name-p (filename)