From 58c8f9156c7b7394d1f93a3f56c0c3e165e5bbf3 Mon Sep 17 00:00:00 2001 From: "J.D. Smith" Date: Tue, 5 Dec 2006 23:29:16 +0000 Subject: [PATCH] (idlwave-xml-create-class-method-lists): Trim out spurious class inheritance "None" entries. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/idlwave.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) 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 + + * progmodes/idlwave.el (idlwave-xml-create-class-method-lists): + Trim out spurious class inheritance "None" entries. + 2006-12-05 Kim F. Storm * 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))) -- 2.39.2