Function: scheme-start-file

scheme-start-file is a byte-compiled function defined in cmuscheme.el.gz.

Signature

(scheme-start-file PROG)

Documentation

Return the name of the start file corresponding to PROG.

Search in the directories "~" and user-emacs-directory, in this order. Return nil if no start file found.

Source Code

;; Defined in /usr/src/emacs/lisp/cmuscheme.el.gz
(defun scheme-start-file (prog)
  "Return the name of the start file corresponding to PROG.
Search in the directories \"~\" and `user-emacs-directory',
in this order.  Return nil if no start file found."
  (let* ((progname (file-name-nondirectory prog))
	 (start-file (concat "~/.emacs_" progname))
         (alt-start-file (locate-user-emacs-file
                          (concat "init_" progname ".scm"))))
    (if (file-exists-p start-file)
        start-file
      (and (file-exists-p alt-start-file) alt-start-file))))