Need to select both objects

I have a lisp that highlights text associated with symbols that have associated xdata. I believe the solution is simple. I am just not savvy enough to figure it out. The attached zip file is the routine. With the code as is, the symbol and the text associated with the symbol labeled "zn" is highlighted and If I remove the code from (defun findsymdatatext (ss mode) to the end, the xdata tagged " refdes_handle" is highlighted. What can I do to this code to highlight both, zn and refdes_handle? Please help!
Thanks in advance,
D

 

Well one thing that will not work is that you have 2 subrs (findsymdatatext) with same name. Only the last one defined will have any value.
I'm not sure what the subr getsymxdata returns but it seems to me that this should work using one subr called findsymdatatext.

(defun findsymdatatext (ss mode)

(setq count 0)

(repeat (sslength ss)

(getsymxdata (ssname ss count))

(if zn_handle

(redraw (handent zn_handle) mode)

)
(if refdes_handle

(redraw (handent refdes_handle) mode)

)

(setq count (1+ count))

)

)

HTH

Bill