bug#13698: 24.2; Display script symbol name when calling `describe-char'

bug#13698: 24.2; Display script symbol name when calling `describe-char'

[YE Qianchuan]

[-- Attachment #1: Type: text/plain, Size: 1101 bytes --]

Please refer to this thread:
https://lists.gnu.org/archive/html/help-gnu-emacs/2013-02/msg00138.html

Sometimes the script name symbol of a character is more important than
its charset.  For example, you'd like to use `set-fontset-font' to set a
proper font specifying its script as target, rather than specifying its
charset, which usually is unicode.

In addition, as unicode family is a common charset, the "preferred
charset" displayed by `describe-char' seems not quite useful. In
contrast, script makes more sense. For example, script 'han tells me this
is a CJK character and 'greek tells me this is a greek letter, while
charset often tells me nothing.

Therefore, I suggest display the script name symbol as well when calling
`describe-char'. So that we can press [C-u C-x =] to get it.

I also wrote a simple patch for this.

Besides, I hope there is a handy function called
`list-character-scripts', just like `list-character-sets'. It's a really
simple function: just return
(char-table-extra-slot char-script-table 0).
I believe this function will make script name symbols less confuse.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: `describe-char' to display script symbol name as well --]
[-- Type: text/x-patch, Size: 549 bytes --]

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index b3f7878..6f34a7c 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)))
+              ("script"
+               ,(symbol-name
+                 (char-table-range char-script-table char)))
               ("syntax"
                ,(let ((syntax (syntax-after pos)))
                   (with-temp-buffer

bug#13698: 24.2; Display script symbol name when calling `describe-char'

[YE Qianchuan]

[-- Attachment #1: Type: text/plain, Size: 234 bytes --]

On 02/13/2013 01:30 AM, YE Qianchuan wrote:
> I also wrote a simple patch for this.
>
I improved this patch.

If a char doesn't belong to any script, now `describe-char' do not show
script entity, rather than display "script: nil".



[-- Attachment #2: describe-char-display-script-v2.patch --]
[-- Type: text/x-patch, Size: 642 bytes --]

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index b3f7878..e8ce024 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -574,6 +574,10 @@ relevant to POS."
                         'help-echo
                         "mouse-2, RET: show this character in its character set")
                     str)))
+              ,@(let ((script (char-table-range char-script-table char)))
+                  (if script
+                      (list (list "script"
+                                  (symbol-name script)))))
               ("syntax"
                ,(let ((syntax (syntax-after pos)))
                   (with-temp-buffer

bug#13698: 24.2; Display script symbol name when calling `describe-char'

[Stefan Monnier]

>> I also wrote a simple patch for this.
> I improved this patch.
> If a char doesn't belong to any script, now `describe-char' do not show
> script entity, rather than display "script: nil".

Thank you.  I installed this into trunk so it'll be in Emacs 24.4.
I also replaced char-table-range with aref which works as well here.


        Stefan