master 4849e742738 2/3: Fix unsafep for aliases to side-effect-free functions

[Mattias Engdegård]

branch: master
commit 4849e74273864219be205d5dc9d74fa0b39394e8
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Fix unsafep for aliases to side-effect-free functions
    
    * lisp/emacs-lisp/unsafep.el (unsafep-function):
    Follow aliases when reading the `side-effect-free` property.
---
 lisp/emacs-lisp/unsafep.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/unsafep.el b/lisp/emacs-lisp/unsafep.el
index 1d3cde69392..e722cbc52dd 100644
--- a/lisp/emacs-lisp/unsafep.el
+++ b/lisp/emacs-lisp/unsafep.el
@@ -237,7 +237,7 @@ Otherwise result is a reason code."
    ((eq (car-safe fun) 'lambda)
     (unsafep fun unsafep-vars))
    ((not (and (symbolp fun)
-             (or (get fun 'side-effect-free)
+             (or (function-get fun 'side-effect-free)
                  (eq (get fun 'safe-function) t)
                  (eq safe-functions t)
                  (memq fun safe-functions))))