From 67f3e54ad26b490c4b0f54a514a846ec163a2a6b Mon Sep 17 00:00:00 2001 From: YE Qianchuan Date: Wed, 13 Feb 2013 09:54:59 -0500 Subject: [PATCH] * lisp/descr-text.el (describe-char): Display the script. Fixes: debbugs:13698 --- lisp/ChangeLog | 4 ++++ lisp/descr-text.el | 3 +++ 2 files changed, 7 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 08a40251323..f104a4dfe3a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-02-13 YE Qianchuan (tiny change) + + * descr-text.el (describe-char): Display the script (bug#13698). + 2013-02-13 Stefan Monnier * tmm.el: Use lexical-binding and current-active-maps. diff --git a/lisp/descr-text.el b/lisp/descr-text.el index b3f78780bd3..2aea0a96215 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -574,6 +574,9 @@ relevant to POS." 'help-echo "mouse-2, RET: show this character in its character set") str))) + ,@(let ((script (aref char-script-table char))) + (if script + (list (list "script" (symbol-name script))))) ("syntax" ,(let ((syntax (syntax-after pos))) (with-temp-buffer -- 2.39.5