From: João Távora <joaotavora@gmail.com>
Date: Tue, 31 Aug 2021 17:32:58 +0000 (+0100)
Subject: Unbreak M-x compile-defun of functions using flymake-log
X-Git-Tag: emacs-28.0.90~981
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e793a73fbea3167368bd173211c1995e07dcf913;p=emacs.git

Unbreak M-x compile-defun of functions using flymake-log

* lisp/progmodes/flymake.el (flymake-log): Check if compilation unit
  is indeed a string before treating it as a file name.
---

diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 6386718a460..b1dbde9bcd3 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -291,7 +291,7 @@ generated it."
                    (macroexp-file-name)
                  (and (not load-file-name)
                       (bound-and-true-p byte-compile-current-file))))
-         (sublog (if file
+         (sublog (if (stringp file)
                      (intern
                       (file-name-nondirectory
                        (file-name-sans-extension file))))))