From: Kim F. Storm <storm@cua.dk>
Date: Wed, 14 Feb 2007 11:28:31 +0000 (+0000)
Subject: (describe-char): Use glyph-char and glyph-face.
X-Git-Tag: emacs-pretest-22.0.94~203
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da55bb9600b988d1ccba72c6272b8df64e218bf2;p=emacs.git

(describe-char): Use glyph-char and glyph-face.
---

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 64920336db9..8b36270f46c 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -528,11 +528,11 @@ as well as widgets, buttons, overlays, and text properties."
 		  (setq char (aref disp-vector i))
 		  (aset disp-vector i
 			(cons char (describe-char-display
-				    pos (logand char #x7ffff)))))
+				    pos (glyph-char char)))))
 		(format "by display table entry [%s] (see below)"
 			(mapconcat
 			 #'(lambda (x)
-			     (format "?%c" (logand (car x) #x7ffff)))
+			     (format "?%c" (glyph-char (car x))))
 			 disp-vector " ")))
 	       (composition
 		(let ((from (car composition))
@@ -627,25 +627,19 @@ as well as widgets, buttons, overlays, and text properties."
 	      (progn
 		(insert "these fonts (glyph codes):\n")
 		(dotimes (i (length disp-vector))
-		  (insert (logand (car (aref disp-vector i)) #x7ffff) ?:
+		  (insert (glyph-char (car (aref disp-vector i))) ?:
 			  (propertize " " 'display '(space :align-to 5))
 			  (if (cdr (aref disp-vector i))
 			      (format "%s (#x%02X)" (cadr (aref disp-vector i))
 				      (cddr (aref disp-vector i)))
 			    "-- no font --")
 			  "\n")
-		  (when (> (car (aref disp-vector i)) #x7ffff)
-		    (let* ((face-id (lsh (car (aref disp-vector i)) -19))
-			   (face (car (delq nil (mapcar
-						 (lambda (face)
-						   (and (eq (face-id face)
-							    face-id) face))
-						 (face-list))))))
-		      (when face
-			(insert (propertize " " 'display '(space :align-to 5))
-				"face: ")
-			(insert (concat "`" (symbol-name face) "'"))
-			(insert "\n"))))))
+		  (let ((face (glyph-face (car (aref disp-vector i)))))
+		    (when face
+		      (insert (propertize " " 'display '(space :align-to 5))
+			      "face: ")
+		      (insert (concat "`" (symbol-name face) "'"))
+		      (insert "\n")))))
 	    (insert "these terminal codes:\n")
 	    (dotimes (i (length disp-vector))
 	      (insert (car (aref disp-vector i))