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

Diff of /emacs/lisp/international/subst-jis.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 47  Line 47 
47     (let ((unicode (car pair))     (let ((unicode (car pair))
48           (char (cadr pair)))           (char (cadr pair)))
49       ;; exclude non-CJK components from decode table       ;; exclude non-CJK components from decode table
50       (if (and (>= unicode #x2e80) (<= unicode #xd7a3))       (if (or (and (>= unicode #x2e80) (<= unicode #xd7a3))
51                 (and (>= unicode #xff00) (<= unicode #xffef)))
52           (puthash unicode  char ucs-unicode-to-mule-cjk))           (puthash unicode  char ucs-unicode-to-mule-cjk))
53       (puthash char unicode ucs-mule-cjk-to-unicode)))       (puthash char unicode ucs-mule-cjk-to-unicode)))
54   '(   '(
# Line 13002  Line 13003 
13003     (#x9fa5 ?)     (#x9fa5 ?)
13004     (#xff5e ?)))     (#xff5e ?)))
13005    
13006    ;;; arch-tag: 7f320453-b293-4159-af5e-6f0bab03048c
13007  ;;; subst-jis.el ends here  ;;; subst-jis.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