[Emacs-diffs] Changes to emacs/lisp/cmuscheme.el,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    06/12/09 13:09:34

Index: cmuscheme.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/cmuscheme.el,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -b -r1.44 -r1.45
--- cmuscheme.el        5 Dec 2006 14:20:57 -0000       1.44
+++ cmuscheme.el        9 Dec 2006 13:09:34 -0000       1.45
@@ -269,7 +269,7 @@
   "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))
+  (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)