Mercurial > hg > xemacs-beta
annotate lisp/mule/korean.el @ 4882:eab9498ecc0e
merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c
-------------------- ChangeLog entries follow: --------------------
src/ChangeLog addition:
2010-01-18 Ben Wing <ben@xemacs.org>
* redisplay-gtk.c:
* redisplay-gtk.c (gtk_bevel_area):
* redisplay-x.c:
* redisplay-x.c (THIS_IS_X):
* redisplay-xlike-inc.c:
* redisplay-xlike-inc.c (XLIKE_text_width_single_run):
* redisplay-xlike-inc.c (XLIKE_text_width):
* redisplay-xlike-inc.c (XLIKE_output_display_block):
* redisplay-xlike-inc.c (XLIKE_get_gc):
* redisplay-xlike-inc.c (XLIKE_output_string):
* redisplay-xlike-inc.c (XLIKE_OUTPUT_XLIKE_PIXMAP):
* redisplay-xlike-inc.c (XLIKE_output_pixmap):
* redisplay-xlike-inc.c (XLIKE_output_vertical_divider):
* redisplay-xlike-inc.c (XLIKE_output_blank):
* redisplay-xlike-inc.c (XLIKE_output_horizontal_line):
* redisplay-xlike-inc.c (XLIKE_clear_region):
* redisplay-xlike-inc.c (XLIKE_output_eol_cursor):
* redisplay-xlike-inc.c (XLIKE_clear_frame_window):
* redisplay-xlike-inc.c (XLIKE_clear_frame):
* redisplay-xlike-inc.c (XLIKE_flash):
* redisplay-xlike-inc.c (console_type_create_redisplay_XLIKE):
Move lots more code into redisplay-xlike-inc.c. Use macros to
isolate the code that differs among X vs. GTK, to reduce the need
for ifdefs in the middle of the code. Now, redisplay-x.c and
redisplay-gtk.c only contain a few functions whose implementation
is completely different from one to the other, or which are not
present at all in one of them.
GTK code not currently tested, but it has bitrotted somewhat
any. Doing this will help keep it less bitrotty.
* depend: Regenerate.
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Mon, 18 Jan 2010 08:44:49 -0600 |
| parents | 1d74a1d115ee |
| children | 308d34e9f07d |
| rev | line source |
|---|---|
| 428 | 1 ;;; korean.el --- Support for Korean -*- coding: iso-2022-7bit; -*- |
| 2 | |
| 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | |
| 4 ;; Licensed to the Free Software Foundation. | |
| 5 ;; Copyright (C) 1997 MORIOKA Tomohiko | |
| 6 | |
| 7 ;; Keywords: multilingual, Korean | |
| 8 | |
| 9 ;; This file is part of XEmacs. | |
| 10 | |
| 11 ;; XEmacs is free software; you can redistribute it and/or modify it | |
| 12 ;; under the terms of the GNU General Public License as published by | |
| 13 ;; the Free Software Foundation; either version 2, or (at your option) | |
| 14 ;; any later version. | |
| 15 | |
| 16 ;; XEmacs is distributed in the hope that it will be useful, but | |
| 17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 19 ;; General Public License for more details. | |
| 20 | |
| 21 ;; You should have received a copy of the GNU General Public License | |
| 22 ;; along with XEmacs; see the file COPYING. If not, write to the Free | |
| 23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA | |
| 24 ;; 02111-1307, USA. | |
| 25 | |
| 26 ;;; Commentary: | |
| 27 | |
| 28 ;; For Korean, the character set KSC5601 is supported. | |
| 29 | |
| 30 ;;; Code: | |
| 31 | |
| 778 | 32 ; (make-charset 'korean-ksc5601 |
| 33 ; "KSC5601 Korean Hangul and Hanja: ISO-IR-149" | |
| 34 ; '(dimension | |
| 35 ; 2 | |
| 36 ; registry "KSC5601.1989" | |
| 37 ; chars 94 | |
| 38 ; columns 2 | |
| 39 ; direction l2r | |
| 40 ; final ?C | |
| 41 ; graphic 0 | |
| 42 ; short-name "KSC5601" | |
| 43 ; long-name "KSC5601 (Korean): ISO-IR-149" | |
| 44 ; )) | |
| 45 | |
| 428 | 46 ;; Syntax of Korean characters. |
| 47 (loop for row from 33 to 34 do | |
| 48 (modify-syntax-entry `[korean-ksc5601 ,row] ".")) | |
| 49 (loop for row from 38 to 41 do | |
| 50 (modify-syntax-entry `[korean-ksc5601 ,row] ".")) | |
| 51 | |
| 52 ;; Setting for coding-system and quail were moved to | |
| 53 ;; language/korean.el. | |
| 54 | |
| 55 (make-coding-system | |
| 56 'iso-2022-int-1 'iso2022 | |
| 771 | 57 "ISO-2022-INT-1 (Korean)" |
| 428 | 58 '(charset-g0 ascii |
| 59 charset-g1 korean-ksc5601 | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4072
diff
changeset
|
60 safe-charsets (ascii korean-ksc5601) |
| 428 | 61 short t |
| 62 seven t | |
| 63 lock-shift t | |
| 64 mnemonic "INT-1")) | |
| 65 | |
| 66 ;; EGG specific setup | |
| 67 (define-egg-environment 'korean | |
| 68 "Korean settings for egg" | |
| 69 (lambda () | |
| 771 | 70 (with-boundp '(its:*standard-modes* its:*current-map* wnn-server-type |
| 71 egg-default-startup-file) | |
| 72 (with-fboundp 'its:get-mode-map | |
| 73 (when (not (featurep 'egg-kor)) | |
| 74 (load "its-hangul") | |
| 75 (setq its:*standard-modes* | |
| 76 (cons (its:get-mode-map "hangul") its:*standard-modes*)) | |
| 77 (provide 'egg-kor)) | |
| 78 (setq wnn-server-type 'kserver) | |
| 79 (setq egg-default-startup-file "eggrc-wnn") | |
| 80 (setq-default its:*current-map* (its:get-mode-map "hangul")))))) | |
| 428 | 81 |
| 82 ;; (make-coding-system | |
| 83 ;; 'korean-iso-8bit 2 ?K | |
| 84 ;; "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)" | |
| 85 ;; '(ascii korean-ksc5601 nil nil | |
| 86 ;; nil ascii-eol ascii-cntl) | |
| 87 ;; '((safe-charsets ascii korean-ksc5601) | |
| 88 ;; (mime-charset . euc-kr))) | |
| 89 | |
| 90 (make-coding-system | |
| 91 'euc-kr 'iso2022 | |
| 771 | 92 "Korean EUC" |
| 428 | 93 '(charset-g0 ascii |
| 94 charset-g1 korean-ksc5601 | |
| 95 mnemonic "ko/EUC" | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4072
diff
changeset
|
96 safe-charsets (ascii korean-ksc5601) |
| 771 | 97 documentation |
| 98 "Korean EUC (Extended Unix Code), the standard Korean encoding on Unix. | |
| 99 This follows the same overall EUC principles (see the description under | |
| 100 Japanese EUC), but specifies different character sets: | |
| 101 | |
| 102 G0: ASCII | |
| 103 G1: Korean-KSC5601" | |
| 428 | 104 eol-type nil)) |
| 105 | |
| 106 ;;(define-coding-system-alias 'euc-kr 'euc-korea) | |
| 107 | |
| 108 (define-coding-system-alias 'korean-euc 'euc-kr) | |
| 109 | |
| 110 ;; (make-coding-system | |
| 111 ;; 'iso-2022-kr 2 ?k | |
| 112 ;; "ISO 2022 based 7-bit encoding for Korean KSC5601 (MIME:ISO-2022-KR)." | |
| 113 ;; '(ascii (nil korean-ksc5601) nil nil | |
| 114 ;; nil ascii-eol ascii-cntl seven locking-shift nil nil nil nil nil | |
| 115 ;; designation-bol) | |
| 116 ;; '((safe-charsets ascii korean-ksc5601) | |
| 117 ;; (mime-charset . iso-2022-kr))) | |
| 118 | |
| 119 (make-coding-system | |
| 120 'iso-2022-kr 'iso2022 | |
| 771 | 121 "ISO-2022-KR (Korean mail)" |
| 428 | 122 '(charset-g0 ascii |
| 123 charset-g1 korean-ksc5601 | |
| 124 force-g1-on-output t | |
| 125 seven t | |
| 126 lock-shift t | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4072
diff
changeset
|
127 safe-charsets (ascii korean-ksc5601) |
| 428 | 128 mnemonic "Ko/7bit" |
| 771 | 129 documentation "Coding-System used for communication with mail in Korea." |
| 428 | 130 eol-type lf)) |
| 131 | |
| 132 ;; (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr) | |
| 133 | |
| 134 (set-language-info-alist | |
| 135 "Korean" '((setup-function . setup-korean-environment-internal) | |
| 136 (exit-function . exit-korean-environment) | |
| 137 (tutorial . "TUTORIAL.ko") | |
| 138 (charset korean-ksc5601) | |
| 139 (coding-system euc-kr iso-2022-kr) | |
| 140 (coding-priority euc-kr iso-2022-kr) | |
| 771 | 141 (locale "ko_KR.eucKR" "ko_KR.EUC" "ko_KR.euc" "ko_KR" "ko") |
| 142 (native-coding-system euc-kr) | |
| 428 | 143 (input-method . "korean-hangul") |
| 144 (features korea-util) | |
| 145 (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B") | |
| 146 (documentation . "\ | |
| 147 The following key bindings are available while using Korean input methods: | |
| 148 Shift-SPC: toggle-korean-input-mthod | |
| 149 Control-F9: quail-hangul-switch-symbol-ksc | |
| 150 F9: quail-hangul-switch-hanja") | |
| 151 )) | |
| 152 | |
| 153 ;;; korean.el ends here |