diff options
| author | Dave Love | 2000-05-26 14:09:44 +0000 |
|---|---|---|
| committer | Dave Love | 2000-05-26 14:09:44 +0000 |
| commit | 30c5ceb4ff7e3b1fc5345398a2e434d679e5f9e4 (patch) | |
| tree | e1ff007462bf161238c9a42f31f3e503c5b5e9b6 | |
| parent | dd854dc26e9d9a572a170be1415e66e761cb5302 (diff) | |
| download | emacs-30c5ceb4ff7e3b1fc5345398a2e434d679e5f9e4.tar.gz emacs-30c5ceb4ff7e3b1fc5345398a2e434d679e5f9e4.zip | |
(standard-display-underline): Don't use internal-find-face.
| -rw-r--r-- | lisp/disp-table.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el index b90f3277027..a335d15241c 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el | |||
| @@ -157,11 +157,10 @@ X frame." | |||
| 157 | ;;;###autoload | 157 | ;;;###autoload |
| 158 | (defun standard-display-underline (c uc) | 158 | (defun standard-display-underline (c uc) |
| 159 | "Display character C as character UC plus underlining." | 159 | "Display character C as character UC plus underlining." |
| 160 | (if window-system (require 'faces)) | ||
| 161 | (aset standard-display-table c | 160 | (aset standard-display-table c |
| 162 | (vector | 161 | (vector |
| 163 | (if window-system | 162 | (if window-system |
| 164 | (logior uc (lsh (face-id (internal-find-face 'underline)) 19)) | 163 | (logior uc (lsh (face-id 'underline) 19)) |
| 165 | (create-glyph (concat "\e[4m" (char-to-string uc) "\e[m")))))) | 164 | (create-glyph (concat "\e[4m" (char-to-string uc) "\e[m")))))) |
| 166 | 165 | ||
| 167 | ;; Allocate a glyph code to display by sending STRING to the terminal. | 166 | ;; Allocate a glyph code to display by sending STRING to the terminal. |