Mercurial > emacs
comparison lisp/startup.el @ 90341:5754737d1e04
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-34
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 123-134)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 40-48)
- Merge from emacs--devo--0
- Update from CVS
- Munge arch explicit ids in etc/images to match Emacs
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 03 Mar 2006 07:48:46 +0000 |
parents | 716899c45974 919e61a6e661 |
children | 65ca8fb66a0d |
comparison
equal
deleted
inserted
replaced
90340:8f2b88ad38c4 | 90341:5754737d1e04 |
---|---|
644 | 644 |
645 ;; Convert preloaded file names to absolute. | 645 ;; Convert preloaded file names to absolute. |
646 (let ((lisp-dir | 646 (let ((lisp-dir |
647 (file-name-directory | 647 (file-name-directory |
648 (locate-file "simple" load-path | 648 (locate-file "simple" load-path |
649 load-suffixes)))) | 649 (get-load-suffixes))))) |
650 | 650 |
651 (setq load-history | 651 (setq load-history |
652 (mapcar (lambda (elt) | 652 (mapcar (lambda (elt) |
653 (if (and (stringp (car elt)) | 653 (if (and (stringp (car elt)) |
654 (not (file-name-absolute-p (car elt)))) | 654 (not (file-name-absolute-p (car elt)))) |