doc: Handle right arrows in 'syntax-highlighted-html'.

* doc/build.scm (syntax-highlighted-html)[build](entity->string): Add "rarr".
This commit is contained in:
Ludovic Courtès 2019-11-27 15:42:18 +01:00
parent e8c6644af1
commit 295c6a7e83
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -278,6 +278,7 @@ (define (tag->class tag)
(define entity->string (define entity->string
(match-lambda (match-lambda
("rArr" "⇒") ("rArr" "⇒")
("rarr" "→")
("hellip" "…") ("hellip" "…")
("rsquo" "") ("rsquo" "")
(e (pk 'unknown-entity e) (primitive-exit 2)))) (e (pk 'unknown-entity e) (primitive-exit 2))))