From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 14 Feb 1996 04:26:43 +0000 (+0000)
Subject: (command-line-1): Don't explain recover-session if
X-Git-Tag: emacs-19.34~1295
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95127745f8a44186204340bdaeb6852a8d0cca85;p=emacs.git

(command-line-1): Don't explain recover-session if
auto-save-list-file-prefix is nil.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 449c6d9d145..65be36abc26 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -732,16 +732,17 @@ Type \\[info] to enter Info, which you can use to read GNU documentation."
 		   (if window-system
 		       (insert "\n
 C-mouse-3 (third mouse button, with Control) gets a mode-specific menu."))
-		   (if (directory-files (file-name-directory auto-save-list-file-prefix)
-					nil
-					(concat "\\`"
-						(regexp-quote
-						 (file-name-nondirectory
-						  auto-save-list-file-prefix)))
-					t)
-		       (insert "\n\nIf an Emacs session crashed recently,\n"
-			       "type M-x recover-session RET to recover"
-			       " the files you were editing."))
+		   (and auto-save-list-file-prefix
+			(directory-files
+			 (file-name-directory auto-save-list-file-prefix)
+			 nil
+			 (concat "\\`"
+				 (regexp-quote (file-name-nondirectory
+						auto-save-list-file-prefix)))
+			 t)
+			(insert "\n\nIf an Emacs session crashed recently,\n"
+				"type M-x recover-session RET to recover"
+				" the files you were editing."))
 
 		   (if (and (eq (key-binding "\C-h\C-c") 'describe-copying)
 			    (eq (key-binding "\C-h\C-d") 'describe-distribution)