[cgreek-ja:00969] XEmacs

[TAGA Yoshitaka <tagga@xxxxxxxxxxx>]

はじめまして。津田塾大学の多賀と申します。

XEmacsでcgreek-emacs20を使おうとして苦しんでいます。何か参考になる情報は
ないでしょうか。

とりあえず下のコードとcgreek-quail.el を読み込み、XEmacs のリソースに
Emacs.default.attributeFont:-*-fixed-medium-r-*--14-*
と追加することで、入力と表示、iso-2022-7bitでの保存と読み込み、と最低
限のことは手元の環境(XEmacs21.1/LinuxMLD5[2.4.0test8]) でできるように
なったのですが、これだけでも半徹×2掛かっているありさまです。

;; FROM HERE
(make-charset 'cgreek "Classical Greek"
	      '(registry "MuleCGreek"
                dimension 2
		chars 96
		final ?4
		graphic 0))
(define-ccl-program ccl-encode-cgreek-font
  '(0
    ;; In:  R0:cgreek (not checked)
    ;;      R1:position code 1
    ;;      R2:position code 2
    ;; Out: R1:always 0
    ;;      R2:font codepoint
    ((r2 += (((r1 - 32) * 96) - 32))
     (r1 = 0)))
  "CCL program to encode cgreek chars to the MuleCGreek font")
(set-charset-ccl-program 'cgreek ccl-encode-cgreek-font)
;; TO HERE