(replace-match "\\1"))
(goto-char point-marker))
))
(add-hook 'compilation-filter-hook 'compilation-filter-hook-jps)
> -Original Message-
> From: Schewe, Jon (MN65) [mailto:[EMAIL PROTECTED]]
> Sent: Monday, February 25, 2002 3:23 PM
> To: '[
dd-hook 'compilation-filter-hook 'compilation-filter-hook-jps)
> -Original Message-
> From: Schewe, Jon (MN65) [mailto:[EMAIL PROTECTED]]
> Sent: Monday, February 25, 2002 3:23 PM
> To: '[EMAIL PROTECTED]'; [EMAIL PROTECTED]
> Subject: RE: error navi
Interestingly enough I just wanted to do this today too:
(defun compilation-filter-hook-jps ()
(interactive)
;;Just want to search over the last set of stuff, so exchange point and
mark?
(exchange-point-and-mark t)
(while (re-search-forward "[/]instrumented" nil t)
(replace-match "