From: YE Qianchuan <stool.ye@gmail.com>
Date: Wed, 13 Feb 2013 14:54:59 +0000 (-0500)
Subject: * lisp/descr-text.el (describe-char): Display the script.
X-Git-Tag: emacs-24.3.90~173^2~7^2~53
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=67f3e54ad26b490c4b0f54a514a846ec163a2a6b;p=emacs.git

* lisp/descr-text.el (describe-char): Display the script.

Fixes: debbugs:13698
---

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  <stool.ye@gmail.com>  (tiny change)
+
+	* descr-text.el (describe-char): Display the script (bug#13698).
+
 2013-02-13  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* 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