;; Mule configuration file ;; Copyright (C) 1992 Free Software Foundation, Inc. ;; This file is part of Mule (MULtilingual Enhancement of GNU Emacs). ;; This file contains Japanese characters. ;; Mule is free software distributed in the form of patches to GNU Emacs. ;; You can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 1, or (at your option) ;; any later version. ;; Mule is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; 92.5.1 created for Mule Ver.0.9.4 by K.Handa ;;; 92.5.18 modified for Mule Ver.0.9.4 by K.Handa ;;; Character syntaxs are defined for Latin-1 characters. ;;; 92.7.16 modified for Mule Ver.0.9.5 by K.Handa ;;; Syntax of Japanese characters is Sextword. ;;; 93.4.10 modified for Mule Ver.0.9.7.1 by K.Handa ;;; New character set lc-ascr2l is introduced. ;;; 93.5.24 modified for Mule Ver.0.9.8 by K.Handa ;;; Change syntax from "_" (part of symbol) to "." (punctuation). ;;; Vietnamese support. ;;; 93.7.16 modified for Mule Ver.0.9.8 by K.Handa ;;; Set syntax 'word' for JISX0201 (lc-kana). ;;; 93.7.26 modified for Mule Ver.0.9.8 by T.Enami ;;; Add syntax for Japanese parenthesis. ;;; 93.7.29 modified for Mule Ver.0.9.8 by K.Handa ;;; Renamed to mule-conf.el. ;;; 93.8.3 modified for Mule Ver.1.1 by K.Handa ;;; Syntax setting for lc-kana ('w') and lc-jp2 ('e'). ;;; 94.1.18 modified for Mule Ver.1.1 by K.Handa ;;; Modified for Laint-7 (Greek). ;;; 94.7.12 modified for Mule Ver.2.0 by TAKAHASHI N. ;;; Syntax for ISO8859-[2578]. ;;; Private character sets for Arabic & IPA. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; EDIT THIS FILE FOR YOUR OWN CONFIGURATION. ;; PLEASE NOTE THAT MOST OF CONFIGURATION CAN BE DONE IN mule-init.el, ;; OR IN SUCH LANGUAGE SPECIFIC FILES AS japanese.el, chinese.el, etc. ;; THIS FILE IS FOR SUCH CODE THAT SHOULD BE LOADED JUST AFTER mule.el. ;; FOR THE MOMENT, I THINK, ONLY THE FOLLOWING CODES SHOULD BE HERE: ;; - MODIFICATION OF standard-syntax-table ;; - REGISTRATION OF PRIVATE CHARACTER SETS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; MODIFICATION OF standard-syntax-table. (let (c) ;; For syntax of Japanese characters. (setq c 161) (while (< c 256) (modify-syntax-entry (make-character lc-jp 161 c) ".") (setq c (1+ c))) (let ((chars '(?ー ?゛ ?゜ ?ヽ ?ヾ ?ゝ ?ゞ ?〃 ?仝 ?々 ?〆 ?〇))) (while chars (modify-syntax-entry (car chars) "e") (setq chars (cdr chars)))) (modify-syntax-entry (make-character lc-jp 162) ".") (setq c 163) (while (< c 168) (modify-syntax-entry (make-character lc-jp c) "e") (setq c (1+ c))) (modify-syntax-entry (make-character lc-jp c) ".") (setq c 176) (while (< c 256) (modify-syntax-entry (make-character lc-jp c) "e") (setq c (1+ c))) ;; 93.7.26 by T.Enami (modify-syntax-entry ?（ "(）") (modify-syntax-entry ?［ "(］") (modify-syntax-entry ?｛ "(｝") (modify-syntax-entry ?「 "(」") (modify-syntax-entry ?『 "(』") (modify-syntax-entry ?） ")（") (modify-syntax-entry ?］ ")［") (modify-syntax-entry ?｝ ")｛") (modify-syntax-entry ?」 ")「") (modify-syntax-entry ?』 ")『") (modify-syntax-entry lc-kana "w") ;93.8.3 by K.Handa (modify-syntax-entry lc-jp2 "e") ;93.8.3 by K.Handa ;; For syntax of Korean characters. (setq c 161) (while (< c 163) (modify-syntax-entry (make-character lc-kr c) ".") (setq c (1+ c))) (while (< c 166) (modify-syntax-entry (make-character lc-kr c) "w") (setq c (1+ c))) (while (< c 170) (modify-syntax-entry (make-character lc-kr c) ".") (setq c (1+ c))) (while (< c 256) (modify-syntax-entry (make-character lc-kr c) "w") (setq c (1+ c))) ;; For syntax of Chinese characters. (setq c 161) (while (< c 163) (modify-syntax-entry (make-character lc-cn c) ".") (setq c (1+ c))) (while (< c 169) (modify-syntax-entry (make-character lc-cn c) "w") (setq c (1+ c))) (modify-syntax-entry (make-character lc-cn 169) ".") (setq c 170) (while (< c 256) (modify-syntax-entry (make-character lc-cn c) "w") (setq c (1+ c))) (modify-syntax-entry (make-character lc-cns1) "w") (modify-syntax-entry (make-character lc-cns2) "w") (modify-syntax-entry (make-character lc-big5-1) "w") (modify-syntax-entry (make-character lc-big5-2) "w") ;; For syntax of Latin-1 characters. (setq c 192) ; from ',A@' to ',A' (while (< c 256) (modify-syntax-entry (make-character lc-ltn1 c) "w") (setq c (1+ c))) (modify-syntax-entry (make-character lc-ltn1 160) "w") ; NBSP (modify-syntax-entry ?,AW ".") (modify-syntax-entry ?,Aw ".") ) ;; 94.7.12 by TAKAHASHI Naoto ;; For syntax of Latin-2 (let ((chars '(?,B! ?,B# ?,B% ?,B& ?,B) ?,B* ?,B+ ?,B, ?,B. ?,B/ ?,B1 ?,B3 ?,B5 ?,B6 ?,B9 ?,B: ?,B; ?,B<)) (c 190)) (while chars (modify-syntax-entry (car chars) "w") (setq chars (cdr chars))) (while (< c 255) (modify-syntax-entry (make-character lc-ltn2 c) "w") (setq c (1+ c)))) (modify-syntax-entry (make-character lc-ltn2 160) "w") ; NBSP (modify-syntax-entry ?,BW ".") (modify-syntax-entry ?,Bw ".") ;; For syntax of Cyrillic (let ((c 161)) (while (< c 256) (modify-syntax-entry (make-character lc-crl c) "w") (setq c (1+ c)))) (modify-syntax-entry (make-character lc-crl 160) "w") ; NBSP (modify-syntax-entry ?,L- ".") (modify-syntax-entry ?,Lp ".") (modify-syntax-entry ?,L} ".") ;; For syntax of Greek (let ((c 182)) (while (< c 255) (modify-syntax-entry (make-character lc-grk c) "w") (setq c (1+ c)))) (modify-syntax-entry (make-character lc-grk 160) "w") ; NBSP (modify-syntax-entry ?,F7 ".") (modify-syntax-entry ?,F; ".") (modify-syntax-entry ?,F= ".") ;; For syntax of Hebrew (let ((c 224)) (while (< c 251) (modify-syntax-entry (make-character lc-hbw c) "w") (setq c (1+ c)))) (modify-syntax-entry (make-character lc-hbw 160) "w") ; NBSP ;; REGISTRATION OF PRIVATE CHARACTER SETS ;; ;; Final characters ?0 through ?9 are reserved. You can use the ;; following 6 final characters for your own private character sets: ;; ;; ?: ?; ?< ?= ?> ?? ;; ;; PinYin-ZhuYin (setq lc-sisheng (new-private-character-set 1 1 0 0 ?0 0 "PinYin-ZhuYin" "sisheng_cwnn\\|OMRON_UDC_ZH")) ;; Thai TSCII ;; We are now supporting TIS620 (Thai) as an official character set. ;;(setq lc-thai (new-private-character-set 1 1 0 0 ?1 0 "Thai TSCII" "TIS620")) ;; But to read Thai text saved by old Mule... (set-leading-char lc-thai 0 ?1) ;; 93.4.10 by K.Handa (setq lc-ascr2l (new-private-character-set 1 1 0 0 ?B 1 "Right-to-Left ASCII" "ISO8859-1")) ;; 93.5.24 by K.Handa ;; Vietnamese VISCII with two tables. (setq lc-vn-1 (new-private-character-set 1 1 1 1 ?1 0 "VISCII lower" "VISCII1.1")) (setq lc-vn-2 (new-private-character-set 1 1 1 1 ?2 0 "VISCII upper" "VISCII1.1")) (modify-syntax-entry (make-character lc-vn-1) "w") (modify-syntax-entry (make-character lc-vn-2) "w") ;; 94.7.12 by TAKAHASHI Naoto ;; Three character sets for Arabic (setq lc-arb0 (new-private-character-set 1 1 0 0 ?2 0 "Arabic digit" "MuleArabic-0")) (setq lc-arb1 (new-private-character-set 1 1 0 0 ?3 1 "1-column Arabic" "MuleArabic-1")) (setq lc-arb2 (new-private-character-set 1 2 0 0 ?4 1 "2-column Arabic" "MuleArabic-2")) ;; for Mule IPA (setq lc-ipa0 (new-private-character-set 1 1 1 1 ?0 0 "IPA for Mule" "MuleIPA")) ;; 94.10.13 by TAKAHASHI Naoto ;; Ethiopic (setq lc-ethio (new-private-character-set 2 2 2 0 ?2 0 "Ethio" "Ethio")) ;; CNS11646 Plane3 thru Plane7 (setq lc-cns3 (new-private-character-set 2 2 2 0 ?I 0 "CNS Plane3" "CNS11643.3")) (setq lc-cns4 (new-private-character-set 2 2 2 0 ?J 0 "CNS Plane4" "CNS11643.4")) (setq lc-cns5 (new-private-character-set 2 2 2 0 ?K 0 "CNS Plane5" "CNS11643.5")) (setq lc-cns6 (new-private-character-set 2 2 2 0 ?L 0 "CNS Plane6" "CNS11643.6")) (setq lc-cns7 (new-private-character-set 2 2 2 0 ?M 0 "CNS Plane7" "CNS11643.7")) (let ((cns-list (list lc-cns3 lc-cns4 lc-cns5 lc-cns6 lc-cns7))) (while cns-list (modify-syntax-entry (make-character (car cns-list)) "w") (modify-category-entry (car cns-list) ?t) (setq cns-list (cdr cns-list))))