From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 29 Sep 2019 09:05:54 +0000 (+0200)
Subject: always expand file name when bytecompiling
X-Git-Tag: emacs-28.0.90~2727^2~1105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9da698575addc4b9c007d7d6c1590bc5ac245bdc;p=emacs.git

always expand file name when bytecompiling
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 209c4e68b6a..cb88bd88525 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1579,9 +1579,10 @@ If INPUT is a string, use it as the file path to be native compiled."
     (error "Trying to native compile something not a symbol function or file"))
   (let ((data input)
         (comp-native-compiling t)
-        (comp-ctxt (make-comp-ctxt :output (if (symbolp input)
-                                               (symbol-name input)
-                                             (file-name-sans-extension input)))))
+        (comp-ctxt (make-comp-ctxt
+                    :output (if (symbolp input)
+                                (symbol-name input)
+                              (file-name-sans-extension (expand-file-name input))))))
     (mapc (lambda (pass)
             (comp-log (format "Running pass %s:\n" pass))
             (setq data (funcall pass data)))