diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2021-06-03 21:20:57 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2021-06-03 21:28:10 +0200 |
| commit | 6b41d7da9543786647218fe89224809cc51d25d3 (patch) | |
| tree | 891166ced2392424bd9c13da7895a8e9249b6383 /lisp/emacs-lisp/byte-opt.el | |
| parent | a517b77ffe8ed8cdfeec1a9b5258fd16b2446214 (diff) | |
| download | emacs-6b41d7da9543786647218fe89224809cc51d25d3.tar.gz emacs-6b41d7da9543786647218fe89224809cc51d25d3.tar.bz2 emacs-6b41d7da9543786647218fe89224809cc51d25d3.zip | |
Constant-propagate (function SYMBOL)
* lisp/emacs-lisp/byte-opt.el (byte-optimize--substitutable-p):
Consider #'SYMBOL a constant for compile-time propagation purposes.
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |