diff options
| author | Kenichi Handa | 1998-12-15 04:35:38 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-12-15 04:35:38 +0000 |
| commit | ebcc4e2e77d09d53e2dfce288d27355e1ed45b6d (patch) | |
| tree | 96bd0dc02a18959012d3c333cf59bc8ee28750eb /lisp/language/devan-util.el | |
| parent | edf496dd1325d92843d45e4e7954e5ff06cff0fc (diff) | |
| download | emacs-ebcc4e2e77d09d53e2dfce288d27355e1ed45b6d.tar.gz emacs-ebcc4e2e77d09d53e2dfce288d27355e1ed45b6d.zip | |
(devanagari-reorder-glyphs-for-decomposition): Fix the way to
handle devanagari-decomposition-rules.
Diffstat (limited to 'lisp/language/devan-util.el')
| -rw-r--r-- | lisp/language/devan-util.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el index c74d74b1653..a9badda617c 100644 --- a/lisp/language/devan-util.el +++ b/lisp/language/devan-util.el | |||
| @@ -1166,8 +1166,8 @@ Ligatures and special rules are processed." | |||
| 1166 | "This function re-orders glyph list for decomposition." | 1166 | "This function re-orders glyph list for decomposition." |
| 1167 | (sort glyphlist | 1167 | (sort glyphlist |
| 1168 | '(lambda (x y) | 1168 | '(lambda (x y) |
| 1169 | (let ((xx (assoc x devanagari-decomposition-rules)) | 1169 | (let ((xx (nth 1 (assoc x devanagari-decomposition-rules))) |
| 1170 | (yy (assoc y devanagari-decomposition-rules))) | 1170 | (yy (nth 1 (assoc y devanagari-decomposition-rules)))) |
| 1171 | (if (null xx) (setq xx 0)) | 1171 | (if (null xx) (setq xx 0)) |
| 1172 | (if (null yy) (setq yy 0)) | 1172 | (if (null yy) (setq yy 0)) |
| 1173 | (< xx yy))))) | 1173 | (< xx yy))))) |