diff options
| author | Stefan Monnier <[email protected]> | 2002-07-07 20:59:00 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2002-07-07 20:59:00 +0000 |
| commit | aca05879df04241435fe141294a001d2c99866d2 (patch) | |
| tree | 6e0117d23c95b44ae604a659153ff9ca5caf3403 /lisp | |
| parent | cf42cb72f28d4451f0338971c6239068fb275aab (diff) | |
(dev-char-glyph-hash, dev-glyph-glyph-hash)
(dev-glyph-glyph-2-hash): Switch makehash -> make-hash-table.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/language/devan-util.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el index 38b56f8919..cbc5b19a56 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)) |