emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/macrostep c20152b 011/110: Handle aliases by using `indire


From: ELPA Syncer
Subject: [nongnu] elpa/macrostep c20152b 011/110: Handle aliases by using `indirect-function' instead of `symbol-function'
Date: Sat, 7 Aug 2021 09:17:52 -0400 (EDT)

branch: elpa/macrostep
commit c20152bc7667dda61d8e20fb22d473d2e7377715
Author: joddie <jonxfield@gmail.com>
Commit: joddie <jonxfield@gmail.com>

    Handle aliases by using `indirect-function' instead of `symbol-function'
---
 macrostep.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/macrostep.el b/macrostep.el
index 3476461..7aa2c5c 100644
--- a/macrostep.el
+++ b/macrostep.el
@@ -409,7 +409,7 @@ If no more macro expansions are visible after this, exit
          (eq (car form) 'lambda))      ; hack
       nil
     (condition-case err
-        (let ((fun (symbol-function (car form))))
+        (let ((fun (indirect-function (car form))))
           (and (consp fun)
                (or (eq (car fun) 'macro)
                    (and
@@ -419,7 +419,7 @@ If no more macro expansions are visible after this, exit
 
 (defun macrostep-macro-definition (form)
   "Return, as a function, the macro definition to apply in expanding FORM."
-  (let ((fun (symbol-function (car form))))
+  (let ((fun (indirect-function (car form))))
     (if (consp fun)
         (case (car fun)
           ((macro)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]