doc: check for spurious spaces.

* checkman.txr (check-spaces): New pattern function for checking for
spurious spaces (i.e., two spaces or more in a row) in .meIP, .meti and
.mets macros.

* txr.1: Fix two instances of spurious spaces ("@\ newline" and
"@\ space" examples). Conform the "@\x hex-digits" and "@\ octal-digits"
examples to the fixed ones; this is more intuitive since there must be
no space before the digits in the escape sequence.

1 files changed, 17 insertions, 0 deletions

diff --git a/checkman.txr b/checkman.txr
index 0f0c6a1e..c41407f6 100644
--- a/checkman.txr
+++ b/checkman.txr
@@ -143,6 +143,13 @@
 @  (throw bad ln `.@ip followed by blank line`)
 @(end)
 @;;
+@;; Check for .meIP, .meti or .mets containing spurious spaces.
+@;;
+@(define check-spaces ())
+.@{mac /meIP|meti|mets/}@/(( \\)+  )?/@(skip)  @(skip)
+@  (throw bad ln `.@mac contains spurious spaces`)
+@(end)
+@;;
 @;; Main
 @;;
 @(bind errors 0)
@@ -173,4 +180,14 @@
          (put-line `@file:@line:@msg`))
 @  (end)
 @(end)
+@(next file)
+@(repeat)
+@  (line ln)
+@  (try)
+@    (check-spaces)
+@  (catch bad (line msg))
+@    (do (inc errors)
+         (put-line `@file:@line:@msg`))
+@  (end)
+@(end)
 @(do (exit (zerop errors)))