[Emacs-diffs] Changes to emacs/lisp/language/devan-util.el

[Kenichi Handa]

Index: emacs/lisp/language/devan-util.el
diff -c emacs/lisp/language/devan-util.el:1.37 
emacs/lisp/language/devan-util.el:1.38
*** emacs/lisp/language/devan-util.el:1.37      Tue Dec 25 05:53:42 2001
--- emacs/lisp/language/devan-util.el   Sun Jul  7 16:59:00 2002
***************
*** 427,433 ****
  preferred rule from the sanskrit fonts."  )
  
  (defvar dev-char-glyph-hash
!   (let* ((hash (makehash 'equal)))
      (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
          dev-char-glyph)
      hash))
--- 427,433 ----
  preferred rule from the sanskrit fonts."  )
  
  (defvar dev-char-glyph-hash
!   (let* ((hash (make-hash-table :test 'equal)))
      (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
          dev-char-glyph)
      hash))
***************
*** 468,474 ****
      ("\$,4"L(B\$,4"'(B\$,4"&(B" . "\$,4"O(B")
      ))
  (defvar dev-glyph-glyph-hash
!   (let* ((hash (makehash 'equal)))
      (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
          dev-glyph-glyph)
      hash))
--- 468,474 ----
      ("\$,4"L(B\$,4"'(B\$,4"&(B" . "\$,4"O(B")
      ))
  (defvar dev-glyph-glyph-hash
!   (let* ((hash (make-hash-table :test 'equal)))
      (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
          dev-glyph-glyph)
      hash))
***************
*** 483,489 ****
      ("$,4",(B" . "$,4"0(B")
      ("$,4"-(B" . "$,4"1(B")))
  (defvar dev-glyph-glyph-2-hash
!   (let* ((hash (makehash 'equal)))
      (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
          dev-glyph-glyph-2)
      hash))
--- 483,489 ----
      ("$,4",(B" . "$,4"0(B")
      ("$,4"-(B" . "$,4"1(B")))
  (defvar dev-glyph-glyph-2-hash
!   (let* ((hash (make-hash-table :test 'equal)))
      (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
          dev-glyph-glyph-2)
      hash))