Commit 4b816985 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(command-line): Convert library names in `load-history' to absolute file names.

parent 6471aead
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment