From 4b816985c1a0557a0630f2b6e4efe83d81c34980 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 21 Oct 2005 17:20:45 +0000 Subject: [PATCH] (command-line): Convert library names in `load-history' to absolute file names. --- lisp/startup.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/lisp/startup.el b/lisp/startup.el index 82191509ef9..28a29fd6a2e 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -641,6 +641,17 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (set-locale-environment nil) + ;; Convert preloaded file names to absolute. + (setq load-history + (mapcar (lambda (elt) + (if (and (stringp (car elt)) + (not (file-name-absolute-p (car elt)))) + (cons (locate-file (car elt) load-path + load-suffixes) + (cdr elt)) + elt)) + load-history)) + ;; Convert the arguments to Emacs internal representation. (let ((args (cdr command-line-args))) (while args -- 2.39.5