diff options
| author | YE Qianchuan <stool.ye@gmail.com> | 2013-02-13 09:54:59 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-02-13 09:54:59 -0500 |
| commit | 67f3e54ad26b490c4b0f54a514a846ec163a2a6b (patch) | |
| tree | 2769b99da318a0cc5959f77183d183170a5333fe /lisp/descr-text.el | |
| parent | 4d0463b974fcd0575bf711a9064539d5712ce568 (diff) | |
| download | emacs-67f3e54ad26b490c4b0f54a514a846ec163a2a6b.tar.gz | |
* lisp/descr-text.el (describe-char): Display the script.
Fixes: debbugs:13698
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 3 |
1 files changed, 3 insertions, 0 deletions
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 |