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

(make-auto-save-file-name): Specify # as suffix in the non-file-visiting case.

Browse source
This commit is contained in:
Richard M. Stallman 2002-04-28 22:30:22 +00:00
parent 10cf1ba83a
commit 3c4a7cf326
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/files.el
View file

@ -3372,17 +3372,17 @@ See also `auto-save-file-name-p'."
(if (string-match (car (car list)) filename) (if (string-match (car (car list)) filename)
(setq result (replace-match (cadr (car list)) t nil (setq result (replace-match (cadr (car list)) t nil
filename) filename)
uniq (caddr (car list)))) uniq (caddr (car list))))
(setq list (cdr list))) (setq list (cdr list)))
(if result (if result
(if uniq (if uniq
(setq filename (concat (setq filename (concat
(file-name-directory result) (file-name-directory result)
(subst-char-in-string (subst-char-in-string
directory-sep-char ?! directory-sep-char ?!
(replace-regexp-in-string "!" "!!" (replace-regexp-in-string "!" "!!"
filename)))) filename))))
(setq filename result))) (setq filename result)))
(setq result (setq result
(if (and (eq system-type 'ms-dos) (if (and (eq system-type 'ms-dos)
(not (msdos-long-file-names))) (not (msdos-long-file-names)))
@ -3447,7 +3447,8 @@ See also `auto-save-file-name-p'."
;; file it creates, so we must fix the file name _before_ ;; file it creates, so we must fix the file name _before_
;; make-temp-file is called. ;; make-temp-file is called.
(convert-standard-filename fname) (convert-standard-filename fname)
fname)))))) fname))
nil "#"))))
(defun auto-save-file-name-p (filename) (defun auto-save-file-name-p (filename)
"Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'. "Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'.