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

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

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

revision 1.1.4.3 by miles, Tue May 11 02:35:14 2004 UTC revision 1.1.4.4 by miles, Fri Oct 29 02:05:07 2004 UTC
# Line 31  Line 31 
31   (lambda (pair)   (lambda (pair)
32     (let ((unicode (car pair))     (let ((unicode (car pair))
33           (char (cadr pair)))           (char (cadr pair)))
34       (if (or (and (>= unicode #x2e80) (<= unicode #xd7a3))       ;; exclude non-supporting components from decode table
35               (and (>= unicode #xff00) (<= unicode #xffef)))       (if (utf-translate-cjk-substitutable-p unicode)
36           (puthash unicode  char ucs-unicode-to-mule-cjk))           (puthash unicode char ucs-unicode-to-mule-cjk))
37       (puthash char unicode ucs-mule-cjk-to-unicode)))       (puthash char unicode ucs-mule-cjk-to-unicode)))
38   '((#xa1 ?¢®)   '((#xa1 ?¢®)
39     (#xa4 ?¢´)     (#xa4 ?¢´)

Legend:
Removed from v.1.1.4.3  
changed lines
  Added in v.1.1.4.4

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