summaryrefslogtreecommitdiff
path: root/lisp/descr-text.el
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2016-06-27 19:13:48 +0300
committerEli Zaretskii <eliz@gnu.org>2016-06-27 19:13:48 +0300
commit058e8562775571790e48b1614e84a9617a9e1e17 (patch)
tree951159c63a34b327c54a1032c72c3c4a34cf8342 /lisp/descr-text.el
parentdefdee72c4de5e1aa4fc5c63b81983afc969769a (diff)
downloademacs-058e8562775571790e48b1614e84a9617a9e1e17.tar.gz
* lisp/descr-text.el (describe-char-unicode-data): Fix copy/paste errors.
Diffstat (limited to 'lisp/descr-text.el')
-rw-r--r--lisp/descr-text.el4
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)))