# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1022178014 0
# Node ID 1e2984f890a6bf5ca46136ca77c5b8fa4f023f51
# Parent  fc355fbbbbcca4090e46ad5565c8bae4011c4744
Add coding tag, avoid decode-char.

diff -r fc355fbbbbcc -r 1e2984f890a6 lisp/language/devan-util.el
--- a/lisp/language/devan-util.el	Thu May 23 18:17:57 2002 +0000
+++ b/lisp/language/devan-util.el	Thu May 23 18:20:14 2002 +0000
@@ -1,4 +1,4 @@
-;;; devan-util.el --- Support for composing Devanagari characters
+;;; devan-util.el --- Support for composing Devanagari characters -*-coding: iso2022-7bit;-*-
 
 ;; Copyright (C) 2001 Free Software Foundation, Inc.
 
@@ -110,7 +110,7 @@
 ;; Register a function to compose Devanagari characters.
 (mapc
  (function (lambda (ucs)
-   (aset composition-function-table (decode-char 'ucs ucs)
+   (aset composition-function-table ucs
 	 (list (cons devanagari-composable-pattern 
                      'devanagari-composition-function)))))
  (nconc '(#x0903) (devanagari-range #x0905 #x0939) (devanagari-range #x0958 #x0961)))