andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Eli Zaretskii 2006-12-09 13:09:34 +00:00
parent f248f005db
commit 9a5cd478ea
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/cmuscheme.el
View file

@ -269,9 +269,9 @@ is run).
"Return the name of the start file corresponding to PROG. "Return the name of the start file corresponding to PROG.
Search in the directories \"~\" and \"~/.emacs.d\", in this Search in the directories \"~\" and \"~/.emacs.d\", in this
order. Return nil if no start file found." 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)) (start-file (concat "~/.emacs_" progname))
(alt-start-file (concat "~/.emacs.d/init_" progname ".scm"))) (alt-start-file (concat "~/.emacs.d/init_" progname ".scm")))
(if (file-exists-p start-file) (if (file-exists-p start-file)
start-file start-file
(and (file-exists-p alt-start-file) alt-start-file)))) (and (file-exists-p alt-start-file) alt-start-file))))