概要

EmacsでUCS(UNICODE)をあつかうためのパッケージ

URL

ftp://ftp.m17n.org/pub/mule/Mule-UCS/

ftp://ftp.etl.go.jp/pub/mule/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

起動時に変換テーブルを読みこみますので、起動が重くなります。

Emacs21への対応

上記のパッチに以下はふくまれています。不要。

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"

関連サイト

http://www.alanwood.net/unicode/fonts_macosx.html

CategoryEmacs