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 3e2bff1088e..d41c812565f 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -644,18 +644,17 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." ;; Convert preloaded file names to absolute. (let ((lisp-dir - (file-name-directory - (locate-file "simple" load-path - (get-load-suffixes))))) + (file-truename + (file-name-directory + (locate-file "simple" load-path + (get-load-suffixes)))))) (setq load-history (mapcar (lambda (elt) (if (and (stringp (car elt)) (not (file-name-absolute-p (car elt)))) (cons (concat lisp-dir - (car elt) - (if (string-match "[.]el$" (car elt)) - "" ".elc")) + (car elt)) (cdr elt)) elt)) load-history))) |