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.

diff --git a/lisp/emacs-lisp/unsafep.el b/lisp/emacs-lisp/unsafep.el
index 1d3cde693924a1896a5d2544a510c4a912f508ea..e722cbc52dd5833329e64c115b953d179a39b543 100644 (file)
--- 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))))