andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
inheritance "None" entries.
This commit is contained in:
J.D. Smith 2006-12-05 23:29:16 +00:00
parent 14a56a1b3f
commit 58c8f9156c
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

6
lisp/progmodes/idlwave.el
View file

@ -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)))