[m-rev.] diff: fix proc regexp in gud.el

[Peter Ross]

Hi,

Get it right this time.  Not sure why the previous version worked, but
I suspect that I was picking up the wrong version of the gud.el script.

===================================================================


Estimated hours taken: 0.1
Branches: main, release

scripts/gud.el:
	Use a shy-group (one which doesn't record its result in a
	matched substring).


Index: gud.el
===================================================================
RCS file: /home/mercury1/repository/mercury/scripts/gud.el,v
retrieving revision 1.8
diff -u -r1.8 gud.el
--- gud.el	4 Dec 2002 16:45:50 -0000	1.8
+++ gud.el	4 Dec 2002 17:02:11 -0000
@@ -1116,7 +1116,7 @@
 
 	       ;; Regexp to match a procedure specification,
 	       ;; i.e. "<module>:<sub-module>:<name>/<arity>-<mode> "
-	       (proc-regexp "([^:]+:)+[^:/]+/[0-9]+-[0-9]+ ")
+	       (proc-regexp "\\(?:[^:]+:\\)+[^:/]+/[0-9]+-[0-9]+ ")
 	       
 	       ;; Regexp to match "(<detism>) "
 	       (detism-regexp "([a-z]+) ")

--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------