From 9e314ae633f6f342206553baed4cfac3d4eb17af Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 23 Apr 2002 05:02:15 +0000 Subject: [PATCH] (luna-class-find-member): Don't search parents' method-spaces. --- luna.el | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/luna.el b/luna.el index b307ad9..0aee9f7 100644 --- a/luna.el +++ b/luna.el @@ -97,15 +97,7 @@ The optional 2nd arg SLOTS is a list of slots CLASS will have." (defun luna-class-find-member (class member-name) (or (stringp member-name) (setq member-name (symbol-name member-name))) - (or (intern-soft member-name (luna-class-obarray class)) - (let ((parents (luna-class-parents class)) - ret) - (while (and parents - (null - (setq ret (luna-class-find-member - (luna-find-class (pop parents)) - member-name))))) - ret))) + (intern-soft member-name (luna-class-obarray class))) ;; Return a member (slot or method) of CLASS that has name -- 1.7.10.4