1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00

Closures are always non-nil

* lisp/emacs-lisp/byte-opt.el (byte-compile-trueconstp):
Treat closures as true in boolean context.
This commit is contained in:
Mattias Engdegård 2022-12-15 11:22:06 +01:00
parent 9452dc4821
commit b29be11a6f

View file

@ -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