From: Mattias Engdegård <mattiase@acm.org>
Date: Thu, 3 Jun 2021 19:20:57 +0000 (+0200)
Subject: Constant-propagate (function SYMBOL)
X-Git-Tag: emacs-28.0.90~2205
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b41d7da9543786647218fe89224809cc51d25d3;p=emacs.git

Constant-propagate (function SYMBOL)

* lisp/emacs-lisp/byte-opt.el (byte-optimize--substitutable-p):
Consider #'SYMBOL a constant for compile-time propagation purposes.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 99e84e23ad8..2fff0bd4a5f 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -343,7 +343,7 @@ Same format as `byte-optimize--lexvars', with shared structure and contents.")
       (numberp expr)
       (stringp expr)
       (and (consp expr)
-           (eq (car expr) 'quote)
+           (memq (car expr) '(quote function))
            (symbolp (cadr expr)))
       (keywordp expr)))