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 12a53113f0a..0ec53f98ae7 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -650,18 +650,17 @@ opening the first frame (e.g. open a connection to an X server).") ;; 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))) |