Mercurial > emacs

comparison lisp/startup.el @ 90341:5754737d1e04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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))))