(idlwave-xml-create-class-method-lists): Trim out spurious class

inheritance "None" entries.

2 files changed, 10 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 24fbfd28277..b289f5fdb4c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-05  J.D. Smith  <jdsmith@as.arizona.edu>
+
+        * progmodes/idlwave.el (idlwave-xml-create-class-method-lists):
+        Trim out spurious class inheritance "None" entries.
+
 2006-12-05  Kim F. Storm  <storm@cua.dk>
 
         * emulation/cua-base.el (cua-paste-pop-rotate-temporarily): Doc fix.
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 6fa03c27ba1..f33ae35ed30 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -4651,7 +4651,11 @@ Gets set in cached XML rinfo, or `idlw-rinfo.el'.")
               props (car (cdr pelem)))
         (cond
          ((eq ptype 'SUPERCLASS)
-          (push (cdr (assq 'name props)) inherits))
+          (let ((pname (cdr (assq 'name props)))
+                (plink (cdr (assq 'link props))))
+            (unless (and (string= pname "None")
+                         (string= plink "None"))
+              (push pname inherits))))
 
          ((eq ptype 'PROPERTY)
           (let ((pname (cdr (assq 'name props)))