Mercurial > hg > xemacs-beta

comparison lisp/loadup.el @ 274:ca9a9ec9c1c1 r21-0b35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b35
author cvs
date Mon, 13 Aug 2007 10:29:42 +0200
parents c5d627a313b1
children 6330739388db
comparison
equal deleted inserted replaced
273:411aac7253ef 274:ca9a9ec9c1c1
58 ;; lread.c (or src/Makefile.in.in) has prepended 58 ;; lread.c (or src/Makefile.in.in) has prepended
59 ;; "${srcdir}/../lisp/" to load-path, which is how this file 59 ;; "${srcdir}/../lisp/" to load-path, which is how this file
60 ;; has been found. At this point, enough of XEmacs has been 60 ;; has been found. At this point, enough of XEmacs has been
61 ;; initialized that we can start dumping "standard" lisp. 61 ;; initialized that we can start dumping "standard" lisp.
62 ;; Dumped lisp from external packages is added when we search 62 ;; Dumped lisp from external packages is added when we search
63 ;; the `package-path'. 63 ;; the package path.
64 ;; #### This code is duplicated in two other places. 64 ;; #### This code is duplicated in two other places.
65 (let ((temp-path (expand-file-name "." (car load-path)))) 65 (let ((temp-path (expand-file-name "." (car load-path))))
66 (setq source-directory temp-path) 66 (setq source-directory temp-path)
67 (setq load-path (nconc (mapcar 67 (setq load-path (nconc (mapcar
68 #'(lambda (i) (concat i "/")) 68 #'(lambda (i) (concat i "/"))
85 ".el:" 85 ".el:"
86 ".elc:.el:")))) 86 ".elc:.el:"))))
87 (if full-path 87 (if full-path
88 (prog1 88 (prog1
89 (load full-path) 89 (load full-path)
90 '(garbage-collect)) 90 (garbage-collect))
91 (external-debugging-output (format "\nLoad file %s: not found\n" 91 (external-debugging-output (format "\nLoad file %s: not found\n"
92 file)) 92 file))
93 ;; Uncomment in case of trouble 93 ;; Uncomment in case of trouble
94 ;;(print (format "late-packages: %S" late-packages)) 94 ;;(print (format "late-packages: %S" late-packages))
95 ;;(print (format "guessed-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name))) 95 ;;(print (format "guessed-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name)))