Mercurial > emacs

diff lisp/disp-table.el @ 21262:b3f406b3c297

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(standard-display-underline): Shift face id by 19 bits.
author Karl Heuer <kwzh@gnu.org>
date Mon, 23 Mar 1998 00:12:14 +0000
parents 64a8cdbdef42
children be75888c203f
line wrap: on
line diff
--- 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.