Mercurial > emacs

comparison lisp/descr-text.el @ 91216:79d9f396e42f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-char): Improve the previous change (show font name).
author Kenichi Handa <handa@m17n.org>
date Sun, 09 Dec 2007 12:38:35 +0000
parents 583ca8a88936
children 606f2d163a64
comparison
equal deleted inserted replaced
91215:bbe57de1a9ef 91216:79d9f396e42f
584 (insert " with the following character(s) \"" 584 (insert " with the following character(s) \""
585 (cadr composition) "\""))) 585 (cadr composition) "\"")))
586 (if (and (vectorp (nth 2 composition)) 586 (if (and (vectorp (nth 2 composition))
587 (vectorp (aref (nth 2 composition) 0))) 587 (vectorp (aref (nth 2 composition) 0)))
588 (progn 588 (progn
589 (insert " by these glyphs:\n") 589 (insert " using this font:\n "
590 (aref (query-font (aref (aref (nth 2 composition) 0) 0))
591 0)
592 "\nby these glyphs:\n")
590 (mapc (lambda (x) (insert (format " %S\n" x))) 593 (mapc (lambda (x) (insert (format " %S\n" x)))
591 (nth 2 composition))) 594 (nth 2 composition)))
592 (insert " by the rule:\n\t(" 595 (insert " by the rule:\n\t("
593 (mapconcat (lambda (x) 596 (mapconcat (lambda (x)
594 (if (consp x) (format "%S" x) 597 (if (consp x) (format "%S" x)