diff options
| author | Stefan Monnier | 2019-01-25 16:15:22 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2019-01-25 16:15:22 -0500 |
| commit | ce085f1d61a69e9e407a31d60c298f04cbd0c8d2 (patch) | |
| tree | 1aa0d58a462a1fba3186cc36eec2ec2b9fe7f703 | |
| parent | 682ab5d92a6922694a92fcde029811bccf98d700 (diff) | |
| download | emacs-ce085f1d61a69e9e407a31d60c298f04cbd0c8d2.tar.gz emacs-ce085f1d61a69e9e407a31d60c298f04cbd0c8d2.zip | |
* lisp/loadup.el (load-file-name): Set back to nil
| -rw-r--r-- | lisp/loadup.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el index 100c3f700d1..747476c5067 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el | |||
| @@ -534,6 +534,10 @@ lost after dumping"))) | |||
| 534 | (equal (nth 2 command-line-args) "loadup")) | 534 | (equal (nth 2 command-line-args) "loadup")) |
| 535 | (setcdr command-line-args (nthcdr 3 command-line-args))) | 535 | (setcdr command-line-args (nthcdr 3 command-line-args))) |
| 536 | 536 | ||
| 537 | ;; Don't keep `load-file-name' set during the top-level session! | ||
| 538 | ;; Otherwise, it breaks a lot of code which does things like | ||
| 539 | ;; (or load-file-name byte-compile-current-file). | ||
| 540 | (setq load-file-name nil) | ||
| 537 | (eval top-level) | 541 | (eval top-level) |
| 538 | 542 | ||
| 539 | 543 | ||