From aca05879df04241435fe141294a001d2c99866d2 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 7 Jul 2002 20:59:00 +0000 Subject: [PATCH] (dev-char-glyph-hash, dev-glyph-glyph-hash) (dev-glyph-glyph-2-hash): Switch makehash -> make-hash-table. --- lisp/language/devan-util.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 2.39.5