Mercurial > hg > xemacs-beta
comparison lisp/prim/loadup.el @ 187:b405438285a2 r20-3b20
Import from CVS: tag r20-3b20
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:56:28 +0200 |
| parents | 85ec50267440 |
| children | 489f57a838ef |
comparison
equal
deleted
inserted
replaced
| 186:24ac94803b48 | 187:b405438285a2 |
|---|---|
| 57 ;; and get the rest of the dirs (so that we can dump stuff from modes/ | 57 ;; and get the rest of the dirs (so that we can dump stuff from modes/ |
| 58 ;; and packages/.) | 58 ;; and packages/.) |
| 59 ;; | 59 ;; |
| 60 (let ((temp-path (expand-file-name ".." (car load-path)))) | 60 (let ((temp-path (expand-file-name ".." (car load-path)))) |
| 61 (setq source-directory temp-path) | 61 (setq source-directory temp-path) |
| 62 (setq load-path (nconc (directory-files temp-path t "^[^-.]" | 62 (setq load-path (nconc (mapcar |
| 63 nil 'dirs-only) | 63 #'(lambda (i) (concat i "/")) |
| 64 (directory-files temp-path t "^[^-.]" | |
| 65 nil 'dirs-only)) | |
| 64 (cons temp-path load-path)))) | 66 (cons temp-path load-path)))) |
| 65 | 67 |
| 66 (setq load-warn-when-source-newer t ; set to nil at the end | 68 (setq load-warn-when-source-newer t ; set to nil at the end |
| 67 load-warn-when-source-only t) | 69 load-warn-when-source-only t) |
| 68 | 70 |