doc: Handle right arrows in 'syntax-highlighted-html'.
* doc/build.scm (syntax-highlighted-html)[build](entity->string): Add "rarr".master
parent
e8c6644af1
commit
295c6a7e83
|
@ -278,6 +278,7 @@ its <pre class=\"lisp\"> blocks (as produced by 'makeinfo --html')."
|
||||||
(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))))
|
||||||
|
|
Reference in New Issue