(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 38b56f891983b1129a4c474ed06f6b49110d5102..cbc5b19a56e7b30fa6058a7986c8eb54841ef437 100644 (file)
--- 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."  )
     ("\\e$,4"L\e(B\\e$,4"'\e(B\\e$,4"&\e(B" . "\\e$,4"O\e(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."  )
     ("\e$,4",\e(B" . "\e$,4"0\e(B")
     ("\e$,4"-\e(B" . "\e$,4"1\e(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))