427 |
preferred rule from the sanskrit fonts." ) |
preferred rule from the sanskrit fonts." ) |
428 |
|
|
429 |
(defvar dev-char-glyph-hash |
(defvar dev-char-glyph-hash |
430 |
(let* ((hash (makehash 'equal))) |
(let* ((hash (make-hash-table :test 'equal))) |
431 |
(mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) |
(mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) |
432 |
dev-char-glyph) |
dev-char-glyph) |
433 |
hash)) |
hash)) |
468 |
("\$,4"L(B\$,4"'(B\$,4"&(B" . "\$,4"O(B") |
("\$,4"L(B\$,4"'(B\$,4"&(B" . "\$,4"O(B") |
469 |
)) |
)) |
470 |
(defvar dev-glyph-glyph-hash |
(defvar dev-glyph-glyph-hash |
471 |
(let* ((hash (makehash 'equal))) |
(let* ((hash (make-hash-table :test 'equal))) |
472 |
(mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) |
(mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) |
473 |
dev-glyph-glyph) |
dev-glyph-glyph) |
474 |
hash)) |
hash)) |
483 |
("$,4",(B" . "$,4"0(B") |
("$,4",(B" . "$,4"0(B") |
484 |
("$,4"-(B" . "$,4"1(B"))) |
("$,4"-(B" . "$,4"1(B"))) |
485 |
(defvar dev-glyph-glyph-2-hash |
(defvar dev-glyph-glyph-2-hash |
486 |
(let* ((hash (makehash 'equal))) |
(let* ((hash (make-hash-table :test 'equal))) |
487 |
(mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) |
(mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) |
488 |
dev-glyph-glyph-2) |
dev-glyph-glyph-2) |
489 |
hash)) |
hash)) |