aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKen Raeburn2017-03-09 01:15:53 -0500
committerKen Raeburn2017-04-06 02:10:51 -0400
commitdd09e72ed6b1c6ba5c584e7aa32d98437d96326a (patch)
tree34beb020c16a361b6d37969fc223f6b9901dc9cf
parentd15719d36e8fab262e7803d9409326321b890941 (diff)
downloademacs-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.el11
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")