mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

Constant-propagate (function SYMBOL)

Browse Source 
* lisp/emacs-lisp/byte-opt.el (byte-optimize--substitutable-p):
Consider #'SYMBOL a constant for compile-time propagation purposes.
This commit is contained in:
Mattias Engdegård 2021-06-03 21:20:57 +02:00
parent a517b77ffe
commit 6b41d7da95
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/emacs-lisp/byte-opt.el
View File

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