Mercurial > emacs
changeset 74456:dbed1aaa1237
(idlwave-xml-create-class-method-lists): Trim out spurious class
inheritance "None" entries.
| author | J.D. Smith <jdsmith@as.arizona.edu> |
|---|---|
| date | Tue, 05 Dec 2006 23:28:01 +0000 |
| parents | 1c8e8175bed1 |
| children | 5f3a55182554 |
| files | lisp/progmodes/idlwave.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/idlwave.el Tue Dec 05 22:49:39 2006 +0000 +++ b/lisp/progmodes/idlwave.el Tue Dec 05 23:28:01 2006 +0000 @@ -4651,7 +4651,11 @@ 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)))