From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 31 Jul 2022 09:07:04 +0000 (+0200)
Subject: Reformulate compile-command condition
X-Git-Tag: emacs-29.0.90~1447^2~623
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02c14216db46ca3402fdb34062f83132dc3cc1f7;p=emacs.git

Reformulate compile-command condition

* lisp/progmodes/compile.el: Reformulate to avoid a byte-compile
warning when compiling loaddefs.el.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index a665fccc733..9ecea7d21b6 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -860,7 +860,7 @@ You might also use mode hooks to specify it in certain modes, like this:
 
 It's often useful to leave a space at the end of the value."
   :type 'string)
-;;;###autoload(put 'compile-command 'safe-local-variable (lambda (a) (and (stringp a) (or (not (boundp 'compilation-read-command)) compilation-read-command))))
+;;;###autoload(put 'compile-command 'safe-local-variable (lambda (a) (and (stringp a) (if (boundp 'compilation-read-command) compilation-read-command t))))
 
 ;;;###autoload
 (defcustom compilation-disable-input nil