/[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.1 by miles, Fri Apr 4 06:20:26 2003 UTC revision 1.1.4.2 by miles, Tue Oct 14 23:39:23 2003 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 (and (>= unicode #x2e80) (<= unicode #xd7a3))       (if (or (and (>= unicode #x2e80) (<= unicode #xd7a3))
35                 (and (>= unicode #xff00) (<= unicode #xffef)))
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 ?¢®)
# Line 8261  Line 8262 
8262     (#xffe5 ?¡Í)     (#xffe5 ?¡Í)
8263     (#xffe6 ?£Ü)))     (#xffe6 ?£Ü)))
8264    
8265    ;;; arch-tag: b978fd7b-d182-4f63-af47-a028e074c57f
8266  ;;; subst-ksc.el ends here  ;;; subst-ksc.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