diff options
| author | Dave Love <fx@gnu.org> | 2000-05-26 14:09:44 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-05-26 14:09:44 +0000 |
| commit | 30c5ceb4ff7e3b1fc5345398a2e434d679e5f9e4 (patch) | |
| tree | e1ff007462bf161238c9a42f31f3e503c5b5e9b6 /lisp/disp-table.el | |
| parent | dd854dc26e9d9a572a170be1415e66e761cb5302 (diff) | |
| download | emacs-30c5ceb4ff7e3b1fc5345398a2e434d679e5f9e4.tar.gz | |
(standard-display-underline): Don't use internal-find-face.
Diffstat (limited to 'lisp/disp-table.el')
| -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." ;;;###autoload (defun standard-display-underline (c uc) "Display character C as character UC plus underlining." - (if window-system (require 'faces)) (aset standard-display-table c (vector (if window-system - (logior uc (lsh (face-id (internal-find-face 'underline)) 19)) + (logior uc (lsh (face-id 'underline) 19)) (create-glyph (concat "\e[4m" (char-to-string uc) "\e[m")))))) ;; Allocate a glyph code to display by sending STRING to the terminal. |