[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 6b41d7d 2/2: Constant-propagate (function SYMBOL)
From: |
Mattias Engdegård |
Subject: |
master 6b41d7d 2/2: Constant-propagate (function SYMBOL) |
Date: |
Thu, 3 Jun 2021 15:35:21 -0400 (EDT) |
branch: master
commit 6b41d7da9543786647218fe89224809cc51d25d3
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
Constant-propagate (function SYMBOL)
* lisp/emacs-lisp/byte-opt.el (byte-optimize--substitutable-p):
Consider #'SYMBOL a constant for compile-time propagation purposes.
---
lisp/emacs-lisp/byte-opt.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 99e84e2..2fff0bd 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)))