diff options
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index f1a68fd8509..33138ef3875 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -644,18 +644,17 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." | |||
| 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-truename |
| 648 | (locate-file "simple" load-path | 648 | (file-name-directory |
| 649 | (get-load-suffixes))))) | 649 | (locate-file "simple" load-path |
| 650 | (get-load-suffixes)))))) | ||
| 650 | 651 | ||
| 651 | (setq load-history | 652 | (setq load-history |
| 652 | (mapcar (lambda (elt) | 653 | (mapcar (lambda (elt) |
| 653 | (if (and (stringp (car elt)) | 654 | (if (and (stringp (car elt)) |
| 654 | (not (file-name-absolute-p (car elt)))) | 655 | (not (file-name-absolute-p (car elt)))) |
| 655 | (cons (concat lisp-dir | 656 | (cons (concat lisp-dir |
| 656 | (car elt) | 657 | (car elt)) |
| 657 | (if (string-match "[.]el$" (car elt)) | ||
| 658 | "" ".elc")) | ||
| 659 | (cdr elt)) | 658 | (cdr elt)) |
| 660 | elt)) | 659 | elt)) |
| 661 | load-history))) | 660 | load-history))) |