# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739755318 0
# Node ID 68ed205fc50e31368a6dedd6849fad3d5240090b
# Parent  58add805382ebcd8f8f4cad0aa436f34676cd952
(basic-save-buffer): Cal auto-save-mode with t as arg
if and only if auto save was off and default is on.
(set-visited-file-name): Likewise.

diff -r 58add805382e -r 68ed205fc50e lisp/files.el
--- a/lisp/files.el	Thu Jun 10 23:06:50 1993 +0000
+++ b/lisp/files.el	Thu Jun 10 23:35:18 1993 +0000
@@ -1086,7 +1086,8 @@
 	 (setq backup-inhibited t)))
   ;; If auto-save was not already on, turn it on if appropriate.
   (if (not buffer-auto-save-file-name)
-      (auto-save-mode (and buffer-file-name auto-save-default))
+      (and buffer-file-name auto-save-default
+	   (auto-save-mode t))
     ;; If auto save is on, start using a new name.
     ;; We deliberately don't rename or delete the old auto save
     ;; for the old visited file name.  This is because perhaps
@@ -1381,7 +1382,8 @@
 	      (setq buffer-file-name
 		    (expand-file-name (read-file-name "File to save in: ") nil)
 		    default-directory (file-name-directory buffer-file-name))
-	      (auto-save-mode auto-save-default)))
+	      (and auto-save-default (not buffer-auto-save-file-name)
+		   (auto-save-mode t))))
 	(or (verify-visited-file-modtime (current-buffer))
 	    (not (file-exists-p buffer-file-name))
 	    (yes-or-no-p