From ec27e23318f09b17c0e65e9ea0c3c028389ae0fb Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Fri, 3 Mar 2017 06:49:12 +0100 Subject: [PATCH] =?UTF-8?q?Improve=20=E2=80=98(ice-9=20documentation)=20fi?= =?UTF-8?q?le-commentary=E2=80=99=20default=20scrub=20proc?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Long-standing oversight. The Commentary lines almost always include at least one space following the bol semicolons. * ice-9/documentation.scm (file-commentary): In the default scrub proc, append "zero or one space char" to the ‘dirt’ regexp. --- ice-9/documentation.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/documentation.scm b/ice-9/documentation.scm index 6e74799e6..dacd0c70c 100644 --- a/ice-9/documentation.scm +++ b/ice-9/documentation.scm @@ -100,7 +100,7 @@ ;; (define default-in-line-re (make-regexp "^;;; Commentary:")) (define default-after-line-re (make-regexp "^;;; Code:")) - (define default-scrub (let ((dirt (make-regexp "^;+"))) + (define default-scrub (let ((dirt (make-regexp "^;+ ?"))) (lambda (line) (let ((m (regexp-exec dirt line))) (if m (match:suffix m) line)))))