1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00

Improve ‘(ice-9 documentation) file-commentary’ default scrub proc

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.
This commit is contained in:
Thien-Thi Nguyen 2017-03-03 06:49:12 +01:00
parent 3ca22333b7
commit ec27e23318

View file

@ -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)))))