/[emacs]/emacs/lisp/international/characters.el
ViewVC logotype

Diff of /emacs/lisp/international/characters.el

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

revision 1.35.2.4 by handa, Tue May 14 07:48:11 2002 UTC revision 1.35.2.5 by handa, Tue May 14 23:15:58 2002 UTC
# Line 477  Line 477 
477  (let ((c #x30a0))  (let ((c #x30a0))
478    (while (<= c #x30ff)    (while (<= c #x30ff)
479      ;; ?K is double width, ?k isn't specified      ;; ?K is double width, ?k isn't specified
480      (modify-category-entry (decode-char 'ucs c) ?k)      (modify-category-entry (decode-char 'ucs c) ?K)
481      (modify-category-entry (decode-char 'ucs c) ?j)      ;;(modify-category-entry (decode-char 'ucs c) ?j)
482      (modify-category-entry (decode-char 'ucs c) ?\|)      (modify-category-entry (decode-char 'ucs c) ?\|)
483      (setq c (1+ c))))      (setq c (1+ c))))
484    
# Line 492  Line 492 
492      (setq c (1+ c))))      (setq c (1+ c))))
493    
494  ;; JISX0208  ;; JISX0208
 ;; (modify-syntax-entry (make-char 'japanese-jisx0208) "w")  
 ;; (modify-syntax-entry (make-char 'japanese-jisx0208 33) "_")  
 ;; (modify-syntax-entry (make-char 'japanese-jisx0208 34) "_")  
 ;; (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_")  
 ;; (let ((chars '(?õ€€› ?õ€€Š ?õ€€‹ ?õ€€’ ?õ€€“ ?õ€€” ?õ€€• ?õ€€– ?õ€€— ?õ€€˜ ?õ€€™ ?õ€€š)))  
 ;;   (while chars  
 ;;     (modify-syntax-entry (car chars) "w")  
 ;;     (setq chars (cdr chars))))  
   
495  (modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2121)  (modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2121)
496                             (decode-char 'japanese-jisx0208 #x227E)) "_")                             (decode-char 'japanese-jisx0208 #x227E)) "_")
497  (modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2821)  (modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2821)
498                             (decode-char 'japanese-jisx0208 #x287E)) "_")                             (decode-char 'japanese-jisx0208 #x287E)) "_")
499    (let ((chars '(?õ€€› ?õ€€Š ?õ€€‹ ?õ€€’ ?õ€€“ ?õ€€” ?õ€€• ?õ€€– ?õ€€— ?õ€€˜ ?õ€€™ ?õ€€š)))
500      (dolist (elt chars)
501        (modify-syntax-entry (car chars) "w")
502        (setq chars (cdr chars))))
503  (modify-syntax-entry ?\õ€€© "(õ€€ª")  (modify-syntax-entry ?\õ€€© "(õ€€ª")
504  (modify-syntax-entry ?\õ€€­ "(õ€€®")  (modify-syntax-entry ?\õ€€­ "(õ€€®")
505  (modify-syntax-entry ?\õ€€¯ "(õ€€°")  (modify-syntax-entry ?\õ€€¯ "(õ€€°")
# Line 516  Line 511 
511  (modify-syntax-entry ?\õ€€¶ ")õ€€µ")  (modify-syntax-entry ?\õ€€¶ ")õ€€µ")
512  (modify-syntax-entry ?\õ€€¸ ")õ€€·")  (modify-syntax-entry ?\õ€€¸ ")õ€€·")
513    
514  ;; (modify-category-entry (make-char 'japanese-jisx0208 35) ?A)  (modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2321)
515  ;; (modify-category-entry (make-char 'japanese-jisx0208 36) ?H)                               (decode-char 'japanese-jisx0208 #x237E)) ?A)
516  ;; (modify-category-entry (make-char 'japanese-jisx0208 37) ?K)  (modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2421)
517  ;; (modify-category-entry (make-char 'japanese-jisx0208 38) ?G)                               (decode-char 'japanese-jisx0208 #x247E)) ?H)
518  ;; (modify-category-entry (make-char 'japanese-jisx0208 39) ?Y)  (modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2521)
519  ;; (let ((row 48))                               (decode-char 'japanese-jisx0208 #x257E)) ?K)
520  ;;   (while (< row 127)  (modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2621)
521  ;;     (modify-category-entry (make-char 'japanese-jisx0208 row) ?C)                               (decode-char 'japanese-jisx0208 #x267E)) ?G)
522  ;;     (setq row (1+ row))))  (modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2721)
523                                 (decode-char 'japanese-jisx0208 #x277E)) ?Y)
524    (modify-category-entry (cons (decode-char 'japanese-jisx0208 #x3021)
525                                 (decode-char 'japanese-jisx0208 #x7E7E)) ?C)
526  (modify-category-entry ?õ€€› ?K)  (modify-category-entry ?õ€€› ?K)
527  (let ((chars '(?õ€€Š ?õ€€‹)))  (let ((chars '(?õ€€Š ?õ€€‹)))
528    (while chars    (while chars

Legend:
Removed from v.1.35.2.4  
changed lines
  Added in v.1.35.2.5

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