diff options
| author | Colin Walters | 2002-06-08 21:03:00 +0000 |
|---|---|---|
| committer | Colin Walters | 2002-06-08 21:03:00 +0000 |
| commit | 18870afc4f5e453be82f648f1f0cd5edbe41b510 (patch) | |
| tree | ba62f358bc2e6f006b858aa38b1eba440dd6d668 | |
| parent | f17c0a1960ea3225c017276fb93a6ff76b0ee3dc (diff) | |
| download | emacs-18870afc4f5e453be82f648f1f0cd5edbe41b510.tar.gz emacs-18870afc4f5e453be82f648f1f0cd5edbe41b510.zip | |
(describe-char-after): Use `font-lock-face' to italicize property names.
| -rw-r--r-- | lisp/international/mule-diag.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 055da29a83e..2082734983d 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el | |||
| @@ -673,8 +673,9 @@ which font is being used for displaying the character." | |||
| 673 | (lambda (a b) | 673 | (lambda (a b) |
| 674 | (< (length (cdr a)) | 674 | (< (length (cdr a)) |
| 675 | (length (cdr b)))))) | 675 | (length (cdr b)))))) |
| 676 | (insert (format " %s: %s\n" (car elt) (cdr elt)))) | 676 | (insert (format " %s: %s\n" (propertize (symbol-name (car elt)) |
| 677 | )))) | 677 | 'font-lock-face 'italic) |
| 678 | (cdr elt)))))))) | ||
| 678 | 679 | ||
| 679 | 680 | ||
| 680 | ;;; CODING-SYSTEM | 681 | ;;; CODING-SYSTEM |