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

[Peter Ross]

Hi,


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


Estimated hours taken: 1
Branches: main, release

scripts/gud.el:
	Fix the regexp which matches a procedure specification so that
	it matches procedures which are contained in sub-modules.

Index: scripts/gud.el
===================================================================
RCS file: /home/mercury1/repository/mercury/scripts/gud.el,v
retrieving revision 1.7
diff -u -r1.7 gud.el
--- scripts/gud.el	5 Dec 2000 07:07:00 -0000	1.7
+++ scripts/gud.el	4 Dec 2002 16:40:44 -0000
@@ -1115,8 +1115,8 @@
 	       (event-regexp "[A-Z]+ ")
 
 	       ;; Regexp to match a procedure specification,
-	       ;; i.e. "<module>:<name>/<arity>-<mode> "
-	       (proc-regexp "[^:]+:[^:/]+/[0-9]+-[0-9]+ ")
+	       ;; i.e. "<module>:<sub-module>:<name>/<arity>-<mode> "
+	       (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
--------------------------------------------------------------------------