[Emacs-diffs] /srv/bzr/emacs/trunk r111770: * lisp/descr-text.el (describe-char): Display the script.

[Stefan Monnier]

------------------------------------------------------------
revno: 111770
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=13698
author: YE Qianchuan <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2013-02-13 09:54:59 -0500
message:
  * lisp/descr-text.el (describe-char): Display the script.
modified:
  lisp/ChangeLog
  lisp/descr-text.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-13 13:40:00 +0000
+++ b/lisp/ChangeLog    2013-02-13 14:54:59 +0000
@@ -1,3 +1,7 @@
+2013-02-13  YE Qianchuan  <address@hidden>  (tiny change)
+
+       * descr-text.el (describe-char): Display the script (bug#13698).
+
 2013-02-13  Stefan Monnier  <address@hidden>
 
        * tmm.el: Use lexical-binding and current-active-maps.

=== modified file 'lisp/descr-text.el'
--- a/lisp/descr-text.el        2013-01-02 16:13:04 +0000
+++ b/lisp/descr-text.el        2013-02-13 14:54:59 +0000
@@ -574,6 +574,9 @@
                         '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