mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Boolean constant detection additions

Browse source 
* lisp/emacs-lisp/byte-opt.el (byte-opt--bool-value-form):
`set` is boolean identity in its second argument.
(byte-compile-trueconstp): `set-marker` is always true.
This commit is contained in:
Mattias Engdegård 2022-09-25 17:47:39 +02:00
parent 197afa4de3
commit b55b2f1c31
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/byte-opt.el
View file

@ -737,7 +737,7 @@ for speeding up processing.")
reverse nreverse sort))
(setq form (nth 1 form))
t)
((memq head '(mapc setq setcar setcdr puthash))
((memq head '(mapc setq setcar setcdr puthash set))
(setq form (nth 2 form))
t)
((memq head '(aset put function-put))
@ -793,6 +793,7 @@ for speeding up processing.")
sxhash sxhash-equal sxhash-eq sxhash-eql
sxhash-equal-including-properties
make-marker copy-marker point-marker mark-marker
set-marker
kbd key-description
always))
t)