From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 9 Dec 2006 13:09:34 +0000 (+0000)
Subject: (scheme-start-file): Use `let*', not `let'.
X-Git-Tag: emacs-pretest-22.0.92~214
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a5cd478ea18ebc5660104af92c5c9cb218319d6;p=emacs.git

(scheme-start-file): Use `let*', not `let'.
---

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 3a0c73f040d..d2a7217a1dc 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -269,9 +269,9 @@ is run).
   "Return the name of the start file corresponding to PROG.
 Search in the directories \"~\" and \"~/.emacs.d\", in this
 order.  Return nil if no start file found."
-  (let ((progname (file-name-nondirectory prog))
-	(start-file (concat "~/.emacs_" progname))
-	(alt-start-file (concat "~/.emacs.d/init_" progname ".scm")))
+  (let* ((progname (file-name-nondirectory prog))
+	 (start-file (concat "~/.emacs_" progname))
+	 (alt-start-file (concat "~/.emacs.d/init_" progname ".scm")))
     (if (file-exists-p start-file)
         start-file
       (and (file-exists-p alt-start-file) alt-start-file))))