diff options
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 005f5d8cb72..2aea0a96215 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -375,6 +375,8 @@ This function is semi-obsolete. Use `get-char-code-property'." (format "%c:%s" x doc))) mnemonics ", "))))) +(declare-function quail-find-key "quail" (char)) + ;;;###autoload (defun describe-char (pos &optional buffer) "Describe position POS (interactively, point) and the char after POS. @@ -572,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 |