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 (cond
[(string? i) [(string? i)
(let ([m (and (extra-breaking?) (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 (if m
(list* (substring i 0 (cdar m)) (list* (substring i 0 (cdar m))
;; Most browsers wrap after a hyphen. The one that ;; Most browsers wrap after a hyphen. The one that