branch: externals/idlwave
commit 5c5768b3d5efcc85dbff0af7bc190efd7a9d1b86
Author: JD Smith <jdtsm...@gmail.com>
Commit: JD Smith <jdtsm...@gmail.com>

    Trim "None" from superclasses
---
 idlwave.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/idlwave.el b/idlwave.el
index 1876664c34..f4b9d524c1 100644
--- a/idlwave.el
+++ b/idlwave.el
@@ -4649,7 +4649,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)))

Reply via email to