diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-12-15 11:22:06 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-12-16 17:18:44 +0100 |
| commit | b29be11a6f387c92508beafcbc8f58799a3e3e06 (patch) | |
| tree | 14b53dcb2b4336df0914243a273e1374b9c46d50 /lisp/emacs-lisp | |
| parent | 9452dc4821a368fa4532423aaa1cc00034d8a139 (diff) | |
| download | emacs-b29be11a6f387c92508beafcbc8f58799a3e3e06.tar.gz emacs-b29be11a6f387c92508beafcbc8f58799a3e3e06.tar.bz2 emacs-b29be11a6f387c92508beafcbc8f58799a3e3e06.zip | |
Closures are always non-nil
* lisp/emacs-lisp/byte-opt.el (byte-compile-trueconstp):
Treat closures as true in boolean context.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |