/[emacs]/emacs/lisp/language/devan-util.el
ViewVC logotype

Diff of /emacs/lisp/language/devan-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by pj, Tue Dec 25 10:53:42 2001 UTC revision 1.38 by monnier, Sun Jul 7 20:59:00 2002 UTC
# Line 427  Default value contains only the basic ru Line 427  Default value contains only the basic ru
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))
# Line 468  preferred rule from the sanskrit fonts." Line 468  preferred rule from the sanskrit fonts."
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))
# Line 483  preferred rule from the sanskrit fonts." Line 483  preferred rule from the sanskrit fonts."
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))

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26