diff options
| -rw-r--r-- | lisp/descr-text.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 528820876ec..6c7983a1771 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -277,12 +277,12 @@ This function is semi-obsolete. Use `get-char-code-property'." 'general-category (intern val)) val))) (list "Combining class" - (let ((val (nth 1 fields))) + (let ((val (nth 2 fields))) (or (char-code-property-description 'canonical-combining-class (intern val)) val))) (list "Bidi category" - (let ((val (nth 1 fields))) + (let ((val (nth 3 fields))) (or (char-code-property-description 'bidi-class (intern val)) val))) |