From: tomo <tomo>
Date: Tue, 23 Apr 2002 05:02:15 +0000 (+0000)
Subject: (luna-class-find-member): Don't search parents' method-spaces.
X-Git-Tag: ChangeLog~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9e314ae633f6f342206553baed4cfac3d4eb17af;p=elisp%2Fflim.git

(luna-class-find-member): Don't search parents' method-spaces.
---

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