Mercurial > emacs
comparison lisp/cmuscheme.el @ 90729:6588c6259dfb
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 545-562)
- Update from CVS
- Update from erc--emacs--22
- Merge from gnus--rel--5.10
- erc-iswitchb: Temporarily enable iswitchb mode
* gnus--rel--5.10 (patch 172-176)
- Merge from emacs--devo--0
- Update from CVS
- Update from CVS: lisp/legacy-gnus-agent.el: Add Copyright notice.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-156
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 16 Dec 2006 01:29:26 +0000 |
| parents | f1d13e615070 3fccc1870d62 |
| children | 95d0cdf160ea |
comparison
equal
deleted
inserted
replaced
| 90728:a65a92d83186 | 90729:6588c6259dfb |
|---|---|
| 267 | 267 |
| 268 (defun scheme-start-file (prog) | 268 (defun scheme-start-file (prog) |
| 269 "Return the name of the start file corresponding to PROG. | 269 "Return the name of the start file corresponding to PROG. |
| 270 Search in the directories \"~\" and \"~/.emacs.d\", in this | 270 Search in the directories \"~\" and \"~/.emacs.d\", in this |
| 271 order. Return nil if no start file found." | 271 order. Return nil if no start file found." |
| 272 (let ((progname (file-name-nondirectory prog)) | 272 (let* ((progname (file-name-nondirectory prog)) |
| 273 (start-file (concat "~/.emacs_" progname)) | 273 (start-file (concat "~/.emacs_" progname)) |
| 274 (alt-start-file (concat "~/.emacs.d/init_" progname ".scm"))) | 274 (alt-start-file (concat "~/.emacs.d/init_" progname ".scm"))) |
| 275 (if (file-exists-p start-file) | 275 (if (file-exists-p start-file) |
| 276 start-file | 276 start-file |
| 277 (and (file-exists-p alt-start-file) alt-start-file)))) | 277 (and (file-exists-p alt-start-file) alt-start-file)))) |
| 278 | 278 |
| 279 (defun scheme-send-region (start end) | 279 (defun scheme-send-region (start end) |