641 |
|
|
642 |
(set-locale-environment nil) |
(set-locale-environment nil) |
643 |
|
|
644 |
|
;; Convert preloaded file names to absolute. |
645 |
|
(setq load-history |
646 |
|
(mapcar (lambda (elt) |
647 |
|
(if (and (stringp (car elt)) |
648 |
|
(not (file-name-absolute-p (car elt)))) |
649 |
|
(cons (locate-file (car elt) load-path |
650 |
|
load-suffixes) |
651 |
|
(cdr elt)) |
652 |
|
elt)) |
653 |
|
load-history)) |
654 |
|
|
655 |
;; Convert the arguments to Emacs internal representation. |
;; Convert the arguments to Emacs internal representation. |
656 |
(let ((args (cdr command-line-args))) |
(let ((args (cdr command-line-args))) |
657 |
(while args |
(while args |