@verb #86:"fetch_topic" this none this rxdo #789
@program #86:"fetch_topic" this none this
"Return the help for a particular topic."
if (args[1] == this.db_index)
  topic = this:db_index(@args)
else
  topic = this:fileread(args[1])
endif
a = {}
for x in (topic)
  $command_utils:suspend_if_needed()
  while (m = match(x, "%?[^ ?]+%?"))
    key = strsub(x[m[1] + 1..m[2] - 1], "\"", """)
    x[m[1]..m[2]] = "<A xch_cmd=\"help " + key + "\">" + key + "</A>"
  endwhile
  a = {@a, x}
endfor
return a
"Last modified by Dax (#789) on Sun May 21 05:42:28 2000 MDT."
.