From: Mattias Engdegård <mattiase@acm.org>
Date: Fri, 24 Feb 2023 14:12:40 +0000 (+0100)
Subject: Fix unsafep for aliases to side-effect-free functions
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4849e74273864219be205d5dc9d74fa0b39394e8;p=emacs.git

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