From 59a40b0d75526c973b5bdd25c41824879aafa515 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sat, 29 Aug 2020 15:10:37 +0200 Subject: [PATCH] * lisp/startup.el (command-line): Clean-up logic for new .eln disposition. --- lisp/startup.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 0a81c878af8..e39df7568ca 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1059,12 +1059,7 @@ please check its value") (unless (file-readable-p lispdir) (princ (format "Lisp directory %s not readable?" lispdir)) (terpri))) - (setq lisp-dir - (file-truename - (if (string-match "\\.eln\\'" simple-file-name) - (expand-file-name - (concat (file-name-directory simple-file-name) "../")) - (file-name-directory simple-file-name)))) + (setq lisp-dir (file-truename (file-name-directory simple-file-name))) (setq load-history (mapcar (lambda (elt) (if (and (stringp (car elt)) -- 2.39.5