Mercurial > emacs

comparison lisp/language/devan-util.el @ 46222:abba3d3c7e98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 4c8338cf29e9
children 0d8b17d428b5
comparison
equal deleted inserted replaced
46221:2f81e2382d8d 46222:abba3d3c7e98
425 "Devanagari characters to glyphs conversion table. 425 "Devanagari characters to glyphs conversion table.
426 Default value contains only the basic rules. You may add your own 426 Default value contains only the basic rules. You may add your own
427 preferred rule from the sanskrit fonts." ) 427 preferred rule from the sanskrit fonts." )
428 428
429 (defvar dev-char-glyph-hash 429 (defvar dev-char-glyph-hash
430 (let* ((hash (makehash 'equal))) 430 (let* ((hash (make-hash-table :test 'equal)))
431 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) 431 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
432 dev-char-glyph) 432 dev-char-glyph)
433 hash)) 433 hash))
434 434
435 (defvar dev-char-glyph-regexp 435 (defvar dev-char-glyph-regexp
466 ("\$,4"L(B\$,4"&(B" . "\$,4"M(B") 466 ("\$,4"L(B\$,4"&(B" . "\$,4"M(B")
467 ("\$,4"L(B\$,4"'(B" . "\$,4"N(B") 467 ("\$,4"L(B\$,4"'(B" . "\$,4"N(B")
468 ("\$,4"L(B\$,4"'(B\$,4"&(B" . "\$,4"O(B") 468 ("\$,4"L(B\$,4"'(B\$,4"&(B" . "\$,4"O(B")
469 )) 469 ))
470 (defvar dev-glyph-glyph-hash 470 (defvar dev-glyph-glyph-hash
471 (let* ((hash (makehash 'equal))) 471 (let* ((hash (make-hash-table :test 'equal)))
472 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) 472 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
473 dev-glyph-glyph) 473 dev-glyph-glyph)
474 hash)) 474 hash))
475 (defvar dev-glyph-glyph-regexp 475 (defvar dev-glyph-glyph-regexp
476 (devanagari-regexp-of-hashtbl-keys dev-glyph-glyph-hash)) 476 (devanagari-regexp-of-hashtbl-keys dev-glyph-glyph-hash))
481 '(("$,4"*(B" . "$,4".(B") 481 '(("$,4"*(B" . "$,4".(B")
482 ("$,4"+(B" . "$,4"/(B") 482 ("$,4"+(B" . "$,4"/(B")
483 ("$,4",(B" . "$,4"0(B") 483 ("$,4",(B" . "$,4"0(B")
484 ("$,4"-(B" . "$,4"1(B"))) 484 ("$,4"-(B" . "$,4"1(B")))
485 (defvar dev-glyph-glyph-2-hash 485 (defvar dev-glyph-glyph-2-hash
486 (let* ((hash (makehash 'equal))) 486 (let* ((hash (make-hash-table :test 'equal)))
487 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) 487 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
488 dev-glyph-glyph-2) 488 dev-glyph-glyph-2)
489 hash)) 489 hash))
490 (defvar dev-glyph-glyph-2-regexp 490 (defvar dev-glyph-glyph-2-regexp
491 (devanagari-regexp-of-hashtbl-keys dev-glyph-glyph-2-hash)) 491 (devanagari-regexp-of-hashtbl-keys dev-glyph-glyph-2-hash))