159 |
(defun standard-display-underline (c uc) |
(defun standard-display-underline (c uc) |
160 |
"Display character C as character UC plus underlining." |
"Display character C as character UC plus underlining." |
161 |
(aset standard-display-table c |
(aset standard-display-table c |
162 |
(vector |
(vector |
163 |
(if window-system |
(if window-system |
164 |
(logior uc (lsh (face-id 'underline) 19)) |
(logior uc (lsh (face-id 'underline) 19)) |
165 |
(create-glyph (concat "\e[4m" (char-to-string uc) "\e[m")))))) |
(create-glyph (concat "\e[4m" (char-to-string uc) "\e[m")))))) |