changeset 44946:5eca5e9178c8

(make-auto-save-file-name): Specify # as suffix in the non-file-visiting case.
author Richard M. Stallman <rms@gnu.org>
date Sun, 28 Apr 2002 22:30:22 +0000
parents 27acb2b2a2a9
children e0182b284e42
files lisp/files.el
diffstat 1 files changed, 11 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Sun Apr 28 22:29:38 2002 +0000
+++ b/lisp/files.el	Sun Apr 28 22:30:22 2002 +0000
@@ -3372,17 +3372,17 @@
 	  (if (string-match (car (car list)) filename)
 	      (setq result (replace-match (cadr (car list)) t nil
 					  filename)
-				uniq (caddr (car list))))
+		    uniq (caddr (car list))))
 	  (setq list (cdr list)))
 	(if result
-		(if uniq
-			(setq filename (concat
-							(file-name-directory result)
-							(subst-char-in-string
-							 directory-sep-char ?!
-							 (replace-regexp-in-string "!" "!!"
-														 filename))))
-		  (setq filename result)))
+	    (if uniq
+		(setq filename (concat
+				(file-name-directory result)
+				(subst-char-in-string
+				 directory-sep-char ?!
+				 (replace-regexp-in-string "!" "!!"
+							   filename))))
+	      (setq filename result)))
 	(setq result
 	      (if (and (eq system-type 'ms-dos)
 		       (not (msdos-long-file-names)))
@@ -3447,7 +3447,8 @@
 	     ;; file it creates, so we must fix the file name _before_
 	     ;; make-temp-file is called.
 	     (convert-standard-filename fname)
-	   fname))))))
+	   fname))
+       nil "#"))))
 
 (defun auto-save-file-name-p (filename)
   "Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'.