>>759
(let ((c (logior ?. (ash (face-id 'highlight) 19))))
(set-display-table-slot standard-display-table
'selective-display
(make-vector 3 c)))