Mercurial > emacs
changeset 74521:3fccc1870d62
(scheme-start-file): Use `let*', not `let'.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 09 Dec 2006 13:09:34 +0000 |
| parents | 0d1bb0d351cf |
| children | b97c3d287849 |
| files | lisp/cmuscheme.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cmuscheme.el Sat Dec 09 13:03:23 2006 +0000 +++ b/lisp/cmuscheme.el Sat Dec 09 13:09:34 2006 +0000 @@ -269,9 +269,9 @@ "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))))