265
@verb #833:"highlight" this none this rxdo #833
@program #833:"highlight" this none this
if (length(args) == 1)
  if (typeof(args[1]) == $STR)
    s = args[1]
    for hl in (this.highlights)
      s = strsub(s, hl[1], "<font color=\"" + hl[2] + "\">" + hl[1] + "</font>", "case-sensitive")
    endfor
    return {s}
  elseif (typeof(args[1]) == $LIST)
    r = {}
    for a in (args[1])
      r = {@r, @this:highlight(a)}
    endfor
    return {r}
  else
    return args[1]
  endif
else
  return this:highlight(args)[1]
endif
"Last modified by Dax (#789) on Tue May  3 13:45:03 2005 MDT."
.

0