From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 7 Jul 2002 20:59:00 +0000 (+0000)
Subject: (dev-char-glyph-hash, dev-glyph-glyph-hash)
X-Git-Tag: ttn-vms-21-2-B4~14266
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aca05879df04241435fe141294a001d2c99866d2;p=emacs.git

(dev-char-glyph-hash, dev-glyph-glyph-hash)
(dev-glyph-glyph-2-hash): Switch makehash -> make-hash-table.
---

diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el
index 38b56f89198..cbc5b19a56e 100644
--- a/lisp/language/devan-util.el
+++ b/lisp/language/devan-util.el
@@ -427,7 +427,7 @@ Default value contains only the basic rules.  You may add your own
 preferred rule from the sanskrit fonts."  )
 
 (defvar dev-char-glyph-hash
-  (let* ((hash (makehash 'equal)))
+  (let* ((hash (make-hash-table :test 'equal)))
     (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
 	  dev-char-glyph)
     hash))
@@ -468,7 +468,7 @@ preferred rule from the sanskrit fonts."  )
     ("\$,4"L(B\$,4"'(B\$,4"&(B" . "\$,4"O(B")
     ))
 (defvar dev-glyph-glyph-hash
-  (let* ((hash (makehash 'equal)))
+  (let* ((hash (make-hash-table :test 'equal)))
     (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
 	  dev-glyph-glyph)
     hash))
@@ -483,7 +483,7 @@ preferred rule from the sanskrit fonts."  )
     ("$,4",(B" . "$,4"0(B")
     ("$,4"-(B" . "$,4"1(B")))
 (defvar dev-glyph-glyph-2-hash
-  (let* ((hash (makehash 'equal)))
+  (let* ((hash (make-hash-table :test 'equal)))
     (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
 	  dev-glyph-glyph-2)
     hash))