diff options
| author | Ken Raeburn | 2017-03-09 01:15:53 -0500 |
|---|---|---|
| committer | Ken Raeburn | 2017-04-06 02:10:51 -0400 |
| commit | dd09e72ed6b1c6ba5c584e7aa32d98437d96326a (patch) | |
| tree | 34beb020c16a361b6d37969fc223f6b9901dc9cf | |
| parent | d15719d36e8fab262e7803d9409326321b890941 (diff) | |
| download | emacs-dd09e72ed6b1c6ba5c584e7aa32d98437d96326a.tar.gz emacs-dd09e72ed6b1c6ba5c584e7aa32d98437d96326a.zip | |
Allow a CANNOT_DUMP build to use exec-path during bootstrap.
During a bootstrap, loading rmail.el invokes movemail to determine its
flavor, but call-process doesn't work if exec-path is nil.
* lisp/loadup.el: Only clear exec-path if dumping.
| -rw-r--r-- | lisp/loadup.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el index 3d21be3611e..a3234e1d265 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el | |||
| @@ -427,12 +427,6 @@ lost after dumping"))) | |||
| 427 | (message "Pure-hashed: %d strings, %d vectors, %d conses, %d bytecodes, %d others" | 427 | (message "Pure-hashed: %d strings, %d vectors, %d conses, %d bytecodes, %d others" |
| 428 | strings vectors conses bytecodes others))) | 428 | strings vectors conses bytecodes others))) |
| 429 | 429 | ||
| 430 | ;; Prevent build-time PATH getting stored in the binary. | ||
| 431 | ;; Mainly cosmetic, but helpful for Guix. (Bug#20330) | ||
| 432 | ;; Do this here, rather than earlier, so that the above code | ||
| 433 | ;; can invoke Git commands and the like. | ||
| 434 | (setq exec-path nil) | ||
| 435 | |||
| 436 | ;; Avoid error if user loads some more libraries now and make sure the | 430 | ;; Avoid error if user loads some more libraries now and make sure the |
| 437 | ;; hash-consing hash table is GC'd. | 431 | ;; hash-consing hash table is GC'd. |
| 438 | (setq purify-flag nil) | 432 | (setq purify-flag nil) |
| @@ -445,6 +439,11 @@ lost after dumping"))) | |||
| 445 | 439 | ||
| 446 | (if (member (car (last command-line-args)) '("dump" "bootstrap")) | 440 | (if (member (car (last command-line-args)) '("dump" "bootstrap")) |
| 447 | (progn | 441 | (progn |
| 442 | ;; Prevent build-time PATH getting stored in the binary. | ||
| 443 | ;; Mainly cosmetic, but helpful for Guix. (Bug#20330) | ||
| 444 | ;; Do this here, rather than earlier, so that the above code | ||
| 445 | ;; can invoke Git commands and the like. | ||
| 446 | (setq exec-path nil) | ||
| 448 | (message "Dumping under the name emacs") | 447 | (message "Dumping under the name emacs") |
| 449 | (condition-case () | 448 | (condition-case () |
| 450 | (delete-file "emacs") | 449 | (delete-file "emacs") |