Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site burdvax.UUCP
Path: utzoo!watmath!clyde!akgua!psuvax!burdvax!hdj
From: hdj@burdvax.UUCP (Herb Jellinek)
Newsgroups: net.emacs
Subject: emgrep.ml
Message-ID: <1488@burdvax.UUCP>
Date: Mon, 20-Feb-84 07:45:59 EST
Article-I.D.: burdvax.1488
Posted: Mon Feb 20 07:45:59 1984
Date-Received: Tue, 21-Feb-84 07:59:31 EST
Organization: System Development Corporation, Paoli PA
Lines: 26

emgrep.ml is an emacs package that lets you use James Gosling's
emgrep (modified grep) in a convenient way.  You can emgrep for
a pattern on a group of files, and then use ^X^N (next-error)
to step through them.

emgrep.ml was written by yours truly.

		Herb Jellinek

;-------------- emgrep.ml -----------------
(defun (emgrep string-pattern file-pattern
	 (provide-prefix-argument 4
	   (new-compile-it
	     (concat
	       "emgrep -e '"
	       (setq string-pattern (arg 1 ": emgrep (for) "))
	       "' "
	       (setq file-pattern (arg 2
				       (concat
					 ": emgrep (for) "
					 string-pattern
					 " (on) ")))
	     )))
	 (novalue)))

;------------- that's all foax! -------------