/[emacs]/emacs/lisp/international/subst-big5.el
ViewVC logotype

Diff of /emacs/lisp/international/subst-big5.el

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

revision 1.1.4.1 by miles, Fri Apr 4 06:20:22 2003 UTC revision 1.1.4.2 by miles, Tue Oct 14 23:39:23 2003 UTC
# Line 32  Line 32 
32   (lambda (pair)   (lambda (pair)
33     (let ((unicode (car pair))     (let ((unicode (car pair))
34           (char (cadr pair)))           (char (cadr pair)))
35       (if (and (>= unicode #x2e80) (<= unicode #xd7a3))       (if (or (and (>= unicode #x2e80) (<= unicode #xd7a3))
36                 (and (>= unicode #xff00) (<= unicode #xffef)))
37           (puthash unicode  char ucs-unicode-to-mule-cjk))           (puthash unicode  char ucs-unicode-to-mule-cjk))
38       (puthash char unicode ucs-mule-cjk-to-unicode)))       (puthash char unicode ucs-mule-cjk-to-unicode)))
39   '((#xa7 ?¡±)   '((#xa7 ?¡±)
# Line 13937  Line 13938 
13938     (#xffe3 ?¡Ã)     (#xffe3 ?¡Ã)
13939     (#xffe5 ?¢D)))     (#xffe5 ?¢D)))
13940    
13941    ;;; arch-tag: 4fbf5312-bb44-4f23-8ae2-7ab2ee1c540f
13942  ;;; subst-big5.el ends here  ;;; subst-big5.el ends here

Legend:
Removed from v.1.1.4.1  
changed lines
  Added in v.1.1.4.2

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