lisp/ChangeLog addition: 2006-12-15 Aidan Kehoe <kehoea(a)parhasard.net&gt; * mule/greek.el: Support case tables, syntax for greek-iso8859-7. XEmacs Trunk source patch: Diff command: cvs -q diff -u Files affected: lisp/mule/greek.el =================================================================== RCS Index: lisp/mule/greek.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/greek.el,v retrieving revision 1.5 diff -u -r1.5 greek.el --- lisp/mule/greek.el 2002/03/16 10:39:06 1.5 +++ lisp/mule/greek.el 2006/12/15 17:13:15 ＠＠ -29,27 +29,72 ＠＠ ;;; Code: -; (make-charset 'greek-iso8859-7 -; "Right-Hand Part of Latin/Greek Alphabet (ISO/IEC 8859-7): ISO-IR-126" -; '(dimension -; 1 -; registry "ISO8859-7" -; chars 96 -; columns 1 -; direction l2r -; final ?F -; graphic 1 -; short-name "RHP of ISO8859/7" -; long-name "RHP of Greek (ISO 8859-7): ISO-IR-126" -; )) +(loop + for (upper lower) + in '((#xdb #xfb) ;; UPSILON WITH DIALYTIKA + (#xda #xfa) ;; IOTA WITH DIALYTIKA + (#xd9 #xf9) ;; OMEGA + (#xd8 #xf8) ;; PSI + (#xd7 #xf7) ;; CHI + (#xd6 #xf6) ;; PHI + (#xd5 #xf5) ;; UPSILON + (#xd4 #xf4) ;; TAU + (#xd3 #xf3) ;; SIGMA + (#xd1 #xf1) ;; RHO + (#xd0 #xf0) ;; PI + (#xcf #xef) ;; OMICRON + (#xce #xee) ;; XI + (#xcd #xed) ;; NU + (#xcc #xec) ;; MU + (#xcb #xeb) ;; LAMDA + (#xca #xea) ;; KAPPA + (#xc9 #xe9) ;; IOTA + (#xc8 #xe8) ;; THETA + (#xc7 #xe7) ;; ETA + (#xc6 #xe6) ;; ZETA + (#xc5 #xe5) ;; EPSILON + (#xc4 #xe4) ;; DELTA + (#xc3 #xe3) ;; GAMMA + (#xc2 #xe2) ;; BETA + (#xc1 #xe1) ;; ALPHA + (#xbf #xfe) ;; OMEGA WITH TONOS + (#xbe #xfd) ;; UPSILON WITH TONOS + (#xbc #xfc) ;; OMICRON WITH TONOS + (#xba #xdf) ;; IOTA WITH TONOS + (#xb9 #xde) ;; ETA WITH TONOS + (#xb8 #xdd) ;; EPSILON WITH TONOS + (#xb6 #xdc) ;; ALPHA WITH TONOS + (#xD3 #xF2)) ;; FINAL SIGMA + ;; No case mappings for: + ;; + ;; (#xE0 "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS") + ;; (#xC0 "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS") + ;; + with case-table = (standard-case-table) + do + (put-case-table-pair (make-char 'greek-iso8859-7 upper) + (make-char 'greek-iso8859-7 lower) case-table)) + +;; Now, syntax. +(dolist (code '(#xA1 ;; LEFT SINGLE QUOTATION MARK + #xA2 ;; RIGHT SINGLE QUOTATION MARK + #xA3 ;; POUND SIGN + #xA6 ;; BROKEN BAR + #xA7 ;; SECTION SIGN + #xA8 ;; DIAERESIS + #xA9 ;; COPYRIGHT SIGN + #xAB ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK + #xAC ;; NOT SIGN + #xAD ;; SOFT HYPHEN + #xAF ;; HORIZONTAL BAR + #xB0 ;; DEGREE SIGN + #xB1 ;; PLUS-MINUS SIGN + #xB7 ;; MIDDLE DOT + #xBB)) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK + (modify-syntax-entry (make-char 'greek-iso8859-7 code) ".")) -;; For syntax of Greek -(loop for c from 54 to 126 - do (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w")) -(modify-syntax-entry (make-char 'greek-iso8859-7 32) "w") ; no-break space -(modify-syntax-entry ?,F7(B ".") -(modify-syntax-entry ?,F;(B ".") -(modify-syntax-entry ?,F=(B ".") +;; NO-BREAK SPACE +(modify-syntax-entry (make-char 'greek-iso8859-7 #xA0) " ") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ＠＠ -57,24 +102,13 ＠＠ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  -;; (make-coding-system -;; 'greek-iso-8bit 2 ?7 -;; "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)" -;; '(ascii greek-iso8859-7 nil nil -;; nil nil nil nil nil nil nil) -;; '((safe-charsets ascii greek-iso8859-7) -;; (mime-charset . iso-8859-7))) - -;; (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit) - (make-coding-system 'iso-8859-7 'iso2022 "ISO-8859-7 (Greek)" '(charset-g0 ascii charset-g1 greek-iso8859-7 charset-g2 t charset-g3 t - mnemonic "Grk" - )) + mnemonic "Grk")) (set-language-info-alist "Greek" '((charset greek-iso8859-7) -- Santa Maradona, priez pour moi! _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches