scribble HTML: no extra breaking at the end of an identifier

This commit is contained in:
Matthew Flatt 2012-11-29 07:18:30 -07:00
parent d6b0dfcd04
commit bd16f1e302

View File

@ -1385,7 +1385,7 @@
(cond
[(string? i)
(let ([m (and (extra-breaking?)
(regexp-match-positions #rx"[-:/+_]|[a-z](?=[A-Z])" i))])
(regexp-match-positions #rx"[-:/+_](?=.)|[a-z](?=[A-Z])" i))])
(if m
(list* (substring i 0 (cdar m))
;; Most browsers wrap after a hyphen. The one that