1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| | (define-minor-mode word-wrap-char-table-mode
"Toggle wrapping using a look-up to word-wrap-chars, globally.
Currently, this allows word wrapping on the characters U+2000 to
U+200B in addition to the default of space and tap, when
`word-wrap' is set to t.
(Provisional and unstable.)
"
:global t
:lighter "uws "
(if word-wrap-char-table-mode
(progn (setq word-wrap-chars (make-char-table nil nil))
(set-char-table-range word-wrap-chars 9 t)
(set-char-table-range word-wrap-chars 32 t)
(set-char-table-range word-wrap-chars
'(8192 . 8203) t))
(setq word-wrap-chars nil)))
(provide 'word-wrap)
|