Mercurial > emacs
changeset 46222:abba3d3c7e98
(dev-char-glyph-hash, dev-glyph-glyph-hash)
(dev-glyph-glyph-2-hash): Switch makehash -> make-hash-table.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 07 Jul 2002 20:59:00 +0000 |
| parents | 2f81e2382d8d |
| children | e5298463efed |
| files | lisp/language/devan-util.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/devan-util.el Sun Jul 07 20:57:25 2002 +0000 +++ b/lisp/language/devan-util.el Sun Jul 07 20:59:00 2002 +0000 @@ -427,7 +427,7 @@ 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 @@ ("\$,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 @@ ("$,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))