From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 Oct 1995 16:59:47 +0000 (+0000)
Subject: (normal-top-level): Set auto-save-list-file-name later,
X-Git-Tag: emacs-19.34~2581
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3c7c12c1b6c58cff8427b4e20b4a18412c0e131;p=emacs.git

(normal-top-level): Set auto-save-list-file-name later,
after calling command-line.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 987bb8b7814..d02593d61e0 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -275,19 +275,19 @@ this prefix to create a unique file name.")
 			   (delete (concat "PWD=" pwd)
 				   process-environment)))))))
     (setq default-directory (abbreviate-file-name default-directory))
-    ;; Specify the file for recording all the auto save files of this session.
-    ;; This is used by recover-session.
-    (setq auto-save-list-file-name
-	  (expand-file-name
-	   (format "%s%d-%s"
-		   auto-save-list-file-prefix
-		   (emacs-pid)
-		   (system-name))))
     (let ((menubar-bindings-done nil))
       (unwind-protect
 	  (command-line)
 	;; Do this again, in case .emacs defined more abbreviations.
 	(setq default-directory (abbreviate-file-name default-directory))
+	;; Specify the file for recording all the auto save files of this session.
+	;; This is used by recover-session.
+	(setq auto-save-list-file-name
+	      (expand-file-name
+	       (format "%s%d-%s"
+		       auto-save-list-file-prefix
+		       (emacs-pid)
+		       (system-name))))
 	(run-hooks 'emacs-startup-hook)
 	(and term-setup-hook
 	     (run-hooks 'term-setup-hook))