mdocml: Accept arbitrary argument delimiters for various roff(7) escape

mdocml: Accept arbitrary argument delimiters for various roff(7) escape

[schwarze]

Log Message:
-----------
Accept arbitrary argument delimiters for various roff(7) escape sequences.
Needed for example by the new Perl pod2man(1) preamble.

Modified Files:
--------------
    mdocml:
        mandoc.c

Revision Data
-------------
Index: mandoc.c
===================================================================
RCS file: /usr/vhosts/mdocml.bsd.lv/cvs/mdocml/mandoc.c,v
retrieving revision 1.76
retrieving revision 1.77
diff -Lmandoc.c -Lmandoc.c -u -p -r1.76 -r1.77
--- mandoc.c
+++ mandoc.c
@@ -179,11 +179,11 @@ mandoc_escape(const char **end, const ch
 	case ('X'):
 		/* FALLTHROUGH */
 	case ('Z'):
-		if ('\'' != **start)
+		if ('\0' == **start)
 			return(ESCAPE_ERROR);
 		gly = ESCAPE_IGNORE;
+		term = **start;
 		*start = ++*end;
-		term = '\'';
 		break;
 
 	/*
@@ -203,11 +203,11 @@ mandoc_escape(const char **end, const ch
 	case ('v'):
 		/* FALLTHROUGH */
 	case ('x'):
-		if ('\'' != **start)
+		if (strchr("\0 %&()*+-./0123456789:<=>", **start))
 			return(ESCAPE_ERROR);
 		gly = ESCAPE_IGNORE;
+		term = **start;
 		*start = ++*end;
-		term = '\'';
 		break;
 
 	/*
--
 To unsubscribe send an email to source+unsubscribe@mdocml.bsd.lv