#pragma section-numbers off = 概要 = EmacsでUCS(UNICODE)をあつかうためのパッケージ = URL = ftp://ftp.m17n.org/pub/mule/Mule-UCS/ ftp://ftp.etl.go.jp/pub/mule/Mule-UCS/ = 最新の環境ヘの対応 = [http://tats.iris.ne.jp/mule-ucs/ Mule-UCS Unofficial Site] このサイトよりパッチを取得してコンパイルします。 = インストール = {{{ emacs -q --no-site-file -batch -l mucs-comp.el }}} .emacs {{{ (add-to-list 'load-path (expand-file-name "~/lisp/Mule-UCS-0.84/lisp")) (require 'un-define) ; Unicode (require 'jisx0213) ; JIS X 0213 }}} 起動時に変換テーブルを読みこみますので、起動が重くなります。 = 関連サイト = http://www.alanwood.net/unicode/fonts_macosx.html = Emacs21への対応 = 上記のパッチに以下はふくまれています。不要。 [http://tsukuba.m17n.org/mule-archive/2002-3/msg00000.html patch to mitigate slow Mule-UCS loading in Emacs 21.2] {{{ Index: un-define.el =================================================================== RCS file: /cvsroot/mule-ucs/lisp/un-define.el,v retrieving revision 1.30 diff -u -p -r1.30 un-define.el @@ -610,13 +624,21 @@ by calling post-read-conversion and pre- (mapcar (lambda (x) - (mapcar - (lambda (y) - (mucs-define-coding-system - (nth 0 y) (nth 1 y) (nth 2 y) - (nth 3 y) (nth 4 y) (nth 5 y) (nth 6 y)) - (coding-system-put (car y) 'alias-coding-systems (list (car x)))) - (cdr x))) + (if (fboundp 'register-char-codings) + ;; Mule 5, where we don't need the eol-type specified and + ;; register-char-codings may be very slow for these coding + ;; system definitions. + (let ((y (cadr x))) + (mucs-define-coding-system + (car x) (nth 1 y) (nth 2 y) + (nth 3 y) (nth 4 y) (nth 5 y))) + (mapcar + (lambda (y) + (mucs-define-coding-system + (nth 0 y) (nth 1 y) (nth 2 y) + (nth 3 y) (nth 4 y) (nth 5 y) (nth 6 y)) + (coding-system-put (car y) 'alias-coding-systems (list (car x))))) + (cdr x))) `((utf-8 (utf-8-unix ?u "UTF-8 coding system" }}} ---- CategoryEmacs