[net.emacs] emgrep.ml

hdj@burdvax.UUCP (Herb Jellinek) (02/20/84)

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! -------------