{{{  comments
; search for current word in all files in the current working directory
; if the variables c-mode or p-mode are set to a non-0 value (bye
; startup-macro?), only files ending on c,h or p are handled.
}}}
nodup
{{{  lookup
(deffun lookup (
  shell-command "fgrep "  "$ORIWORD "  ;
  if or(counter>0 c-mode,counter>0 p-mode) ( "*c "  "*h "  "*p ) else ( "* ) fi
  "  "|less O_RETURN O_RETURN
))
}}}