[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/native-comp 53f9bc6 08/10: * comp.el (comp-output-base-filename)

From: Andrea Corallo
Subject: feature/native-comp 53f9bc6 08/10: * comp.el (comp-output-base-filename): Handle src being a symbol
Date: Sun, 29 Mar 2020 09:12:53 -0400 (EDT)

branch: feature/native-comp
commit 53f9bc6908a4da8f5c985e8f204a479c828c432d
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>

    * comp.el (comp-output-base-filename): Handle src being a symbol
 lisp/emacs-lisp/comp.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index eca61c6..92d0655 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -440,7 +440,8 @@ VERBOSITY is a number between 0 and 3."
 (defun comp-output-base-filename (src)
   "Output filename sans extention for SRC file being native compiled."
-  (let* ((expanded-filename (expand-file-name src))
+  (let* ((src (if (symbolp src) (symbol-name src) src))
+         (expanded-filename (expand-file-name src))
          (output-dir (file-name-as-directory
                       (concat (file-name-directory expanded-filename)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]