branch: elpa/macrostep
commit c20152bc7667dda61d8e20fb22d473d2e7377715
Author: joddie <[email protected]>
Commit: joddie <[email protected]>
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)
