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 6386718a460ab4d90d8a5e73c4cf8c6349c880db..b1dbde9bcd359027a953b4ba8cbeb4a25ee7bd46 100644 (file)
--- 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))))))