# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 890611934 0
# Node ID b3f406b3c29789fa0a70af0bd7139c5808968c49
# Parent  edaef0e79ff01883e99a33e9cae34c7e7b43fa2a
(standard-display-underline): Shift face id by 19 bits.

diff -r edaef0e79ff0 -r b3f406b3c297 lisp/disp-table.el
--- a/lisp/disp-table.el	Sat Mar 21 18:23:09 1998 +0000
+++ b/lisp/disp-table.el	Mon Mar 23 00:12:14 1998 +0000
@@ -161,7 +161,7 @@
   (aset standard-display-table c
 	(vector 
 	 (if window-system
-	     (logior uc (lsh (face-id (internal-find-face 'underline)) 8))
+	     (logior uc (lsh (face-id (internal-find-face '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.