Mercurial > emacs
comparison lisp/startup.el @ 69166:919e61a6e661
(command-line): Use `get-load-suffixes' instead of `load-suffixes'.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Mon, 27 Feb 2006 01:56:19 +0000 |
| parents | a3986bd22732 |
| children | d30038c6c061 8976b9f5eda1 5754737d1e04 |
comparison
equal
deleted
inserted
replaced
| 69165:cba71dc12c14 | 69166:919e61a6e661 |
|---|---|
| 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)))) |