Mercurial > hg > xemacs-beta

comparison lisp/loadup.el @ 312:d1b52dcaa789 r21-0b54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b54
author cvs
date Mon, 13 Aug 2007 10:43:55 +0200
parents 33bdb3d4b97f
children cc15677e0335
comparison
equal deleted inserted replaced
311:b4ad76366919 312:d1b52dcaa789
62 ;; initialized that we can start dumping "standard" lisp. 62 ;; initialized that we can start dumping "standard" lisp.
63 ;; Dumped lisp from external packages is added when we search 63 ;; Dumped lisp from external packages is added when we search
64 ;; the package path. 64 ;; the package path.
65 ;; #### This code is duplicated in two other places. 65 ;; #### This code is duplicated in two other places.
66 (let ((temp-path (expand-file-name "." (car load-path)))) 66 (let ((temp-path (expand-file-name "." (car load-path))))
67 (setq source-directory temp-path)
68 (setq load-path (nconc (mapcar 67 (setq load-path (nconc (mapcar
69 #'(lambda (i) (concat i "/")) 68 #'(lambda (i) (concat i "/"))
70 (directory-files temp-path t "^[^-.]" 69 (directory-files temp-path t "^[^-.]"
71 nil 'dirs-only)) 70 nil 'dirs-only))
72 (cons (file-name-as-directory temp-path) 71 (cons (file-name-as-directory temp-path)