{{{  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.
}}}
@if-using not(LOOKUP)
  @use (LOOKUP)
  {{{  lookup
  (deffun lookup (
    shell-command "fgrep "  "$ORIWORD "  ;
    if or(test-language "c test-language "p)
     ( "*c "  "*h "  "*p )
    else
     ( "* )
    fi
    "  "|less
    newline-and-indent
    newline-and-indent
  ))
  }}}
@fi
