[compile] fix logic

2021-09-15 19:40:26 +05:30 · 2021-09-15 19:40:26 +05:30 · 16a5f70e6c
parent e2feccc902
commit 16a5f70e6c
1 changed files with 3 additions and 2 deletions
--- a/init.org
+++ b/init.org
@ -1544,8 +1544,9 @@ With PREFIX argument and CMD not supplied - prompt for command."
    (awhen (locate-dominating-file default-directory file)
      (cd it)
      (compile
-       (cond ((and prefix cmd)
-              (compilation-read-command cmd))
+       (cond (prefix
+              (compilation-read-command
+               (or cmd "")))
             (cmd cmd)
             (t compile-command))))))
 #+END_SRC