Mercurial > emacs
comparison lisp/startup.el @ 22176:050c1872b04b
Comment change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 21 May 1998 20:32:09 +0000 |
| parents | 7b2a57ff032a |
| children | 979317421863 |
comparison
equal
deleted
inserted
replaced
| 22175:0a2e8ec2a766 | 22176:050c1872b04b |
|---|---|
| 359 expanded)) | 359 expanded)) |
| 360 (setq pending (nconc pending (list expanded))))))) | 360 (setq pending (nconc pending (list expanded))))))) |
| 361 (setq contents (cdr contents))))) | 361 (setq contents (cdr contents))))) |
| 362 (normal-top-level-add-to-load-path (cdr (nreverse dirs))))) | 362 (normal-top-level-add-to-load-path (cdr (nreverse dirs))))) |
| 363 | 363 |
| 364 ;; This function is called from the subdirs.el file. | 364 ;; This function is called from a subdirs.el file. |
| 365 ;; It assumes that default-directory is the directory | |
| 366 ;; in which the subdirs.el file exists, | |
| 367 ;; and it adds to load-path the subdirs of that directory | |
| 368 ;; as specified in DIRS. Normally the elements of DIRS are relative. | |
| 365 (defun normal-top-level-add-to-load-path (dirs) | 369 (defun normal-top-level-add-to-load-path (dirs) |
| 366 (let ((tail load-path) | 370 (let ((tail load-path) |
| 367 (thisdir (directory-file-name default-directory))) | 371 (thisdir (directory-file-name default-directory))) |
| 368 (while (and tail | 372 (while (and tail |
| 369 (not (equal thisdir (car tail))) | 373 (not (equal thisdir (car tail))) |