mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

Fix unsafep for aliases to side-effect-free functions

Browse source 
* lisp/emacs-lisp/unsafep.el (unsafep-function):
Follow aliases when reading the `side-effect-free` property.
This commit is contained in:
Mattias Engdegård 2023-02-24 15:12:40 +01:00
parent 1defa5000b
commit 4849e74273
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/unsafep.el
View file

@ -237,7 +237,7 @@ Otherwise result is a reason code."
((eq (car-safe fun) 'lambda) ((eq (car-safe fun) 'lambda)
(unsafep fun unsafep-vars)) (unsafep fun unsafep-vars))
((not (and (symbolp fun) ((not (and (symbolp fun)
(or (get fun 'side-effect-free) (or (function-get fun 'side-effect-free)
(eq (get fun 'safe-function) t) (eq (get fun 'safe-function) t)
(eq safe-functions t) (eq safe-functions t)
(memq fun safe-functions)))) (memq fun safe-functions))))