Mercurial > emacs
comparison lisp/cmuscheme.el @ 90951:3619e7770f2e
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 793-802)
- Update from CVS
- Remove RCS keywords
- Merge from emacs--rel--22
* emacs--rel--22 (patch 42-50)
- Update from CVS
- Merge from gnus--rel--5.10
- Gnus ChangeLog tweaks
* gnus--rel--5.10 (patch 229-232)
- Merge from emacs--devo--0, emacs--rel--22
- ChangeLog tweak
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-223
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sat, 16 Jun 2007 22:32:13 +0000 |
parents | 95d0cdf160ea d8ee6aceb564 |
children | f55f9811f5d7 |
comparison
equal
deleted
inserted
replaced
90950:8568c29985a3 | 90951:3619e7770f2e |
---|---|
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 user-emacs-directory "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) |