Mule-UCS
概要
EmacsでUCS(UNICODE)をあつかうためのパッケージ
URL
ftp://ftp.m17n.org/pub/mule/Mule-UCS/
ftp://ftp.etl.go.jp/pub/mule/Mule-UCS/
最新の環境ヘの対応
このサイトよりパッチを取得してコンパイルします。
インストール
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起動時に変換テーブルを読みこみますので、起動が重くなります。
Emacs21への対応
上記のパッチに以下はふくまれています。不要。
patch to mitigate slow Mule-UCS loading in Emacs21.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 ](/scratch/ -610,13 +624,21 .html) 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"関連サイト
http://www.alanwood.net/unicode/fonts_macosx.html