Mercurial > emacs
comparison lisp/files.el @ 45748:b082a134b8bc
(make-auto-save-file-name): Rename local `filename' to `file-name'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 11 Jun 2002 19:25:48 +0000 |
| parents | 6fb3f0f51997 |
| children | 83291935212e |
comparison
equal
deleted
inserted
replaced
| 45747:2049fa380cb1 | 45748:b082a134b8bc |
|---|---|
| 3499 ;; Deal with buffers that don't have any associated files. (Mail | 3499 ;; Deal with buffers that don't have any associated files. (Mail |
| 3500 ;; mode tends to create a good number of these.) | 3500 ;; mode tends to create a good number of these.) |
| 3501 | 3501 |
| 3502 (let ((buffer-name (buffer-name)) | 3502 (let ((buffer-name (buffer-name)) |
| 3503 (limit 0) | 3503 (limit 0) |
| 3504 filename) | 3504 file-name) |
| 3505 ;; Eliminate all slashes and backslashes by | 3505 ;; Eliminate all slashes and backslashes by |
| 3506 ;; replacing them with sequences that start with %. | 3506 ;; replacing them with sequences that start with %. |
| 3507 ;; Quote % also, to keep distinct names distinct. | 3507 ;; Quote % also, to keep distinct names distinct. |
| 3508 (while (string-match "[/\\%]" buffer-name limit) | 3508 (while (string-match "[/\\%]" buffer-name limit) |
| 3509 (let* ((character (aref buffer-name (match-beginning 0))) | 3509 (let* ((character (aref buffer-name (match-beginning 0))) |