Mercurial > emacs

diff lisp/language/devan-util.el @ 23886:6402c89c30c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(devanagari-reorder-glyphs-for-decomposition): Fix the way to handle devanagari-decomposition-rules.
author Kenichi Handa <handa@m17n.org>
date Tue, 15 Dec 1998 04:35:38 +0000
parents 87736ae8e5ff
children e0a13ff5901d
line wrap: on
line diff
--- a/lisp/language/devan-util.el	Tue Dec 15 04:35:38 1998 +0000
+++ b/lisp/language/devan-util.el	Tue Dec 15 04:35:38 1998 +0000
@@ -1166,8 +1166,8 @@
   "This function re-orders glyph list for decomposition."
   (sort glyphlist 
 	'(lambda (x y) 
-	   (let ((xx (assoc x devanagari-decomposition-rules))
-		 (yy (assoc y devanagari-decomposition-rules)))
+	   (let ((xx (nth 1 (assoc x devanagari-decomposition-rules)))
+		 (yy (nth 1 (assoc y devanagari-decomposition-rules))))
 	     (if (null xx) (setq xx 0))
 	     (if (null yy) (setq yy 0))
 	     (< xx yy)))))