From 30c5ceb4ff7e3b1fc5345398a2e434d679e5f9e4 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 26 May 2000 14:09:44 +0000 Subject: [PATCH] (standard-display-underline): Don't use internal-find-face. --- lisp/disp-table.el | 3 +-- 1 file changed, 1 insertion(+), 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. -- 2.39.5