From: Mattias Engdegård <mattiase@acm.org>
Date: Thu, 15 Dec 2022 10:22:06 +0000 (+0100)
Subject: Closures are always non-nil
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b29be11a6f387c92508beafcbc8f58799a3e3e06;p=emacs.git

Closures are always non-nil

* lisp/emacs-lisp/byte-opt.el (byte-compile-trueconstp):
Treat closures as true in boolean context.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index a7e1df3622d..55b68c58438 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -755,7 +755,8 @@ for speeding up processing.")
                  ((eq head 'list) (cdr form))
                  ((memq head
                         ;; FIXME: Replace this list with a function property?
-                        '( length safe-length cons lambda
+                        '( lambda internal-make-closure
+                           length safe-length cons
                            string unibyte-string make-string concat
                            format format-message
                            substring substring-no-properties string-replace