always expand file name when bytecompiling

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 209c4e68b6a782c50b1855c5b8d31b0219a82af5..cb88bd885257f9eb48cae2604e3277a56c42e317 100644 (file)
--- 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)))