From: Andrea Corallo <acorallo@gnu.org>
Date: Sat, 12 Aug 2023 16:42:33 +0000 (+0200)
Subject: * Fix `batch-byte+native-compile' target directory.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~15^2~456
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=842dbf500e0fcf44d686d480f39d067b19ff38a9;p=emacs.git

* Fix `batch-byte+native-compile' target directory.

* lisp/emacs-lisp/comp.el (batch-native-compile): Don't shadow
`native-compile-target-directory' unless necessary.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index bdce4254bf5..0c70789be71 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -4305,8 +4305,9 @@ last directory in `native-comp-eln-load-path')."
   (comp-ensure-native-compiler)
   (let ((comp-running-batch-compilation t)
         (native-compile-target-directory
-            (if for-tarball
-                (car (last native-comp-eln-load-path)))))
+         (if for-tarball
+             (car (last native-comp-eln-load-path))
+           native-compile-target-directory)))
     (cl-loop for file in command-line-args-left
              if (or (null byte+native-compile)
                     (cl-notany (lambda (re) (string-match re file))