From ad7a22e1cdb60be6464243f70b8cf9e83c8598e4 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 24 Feb 2003 11:44:49 +0000 Subject: [PATCH] (default-coded-charset-priority-list): Add `mojikyo'. (char-db-coded-charset-priority-list): Likewise. --- lisp/utf-2000/mojikyo-conf.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/mojikyo-conf.el b/lisp/utf-2000/mojikyo-conf.el index 79e8883..4ee6523 100644 --- a/lisp/utf-2000/mojikyo-conf.el +++ b/lisp/utf-2000/mojikyo-conf.el @@ -1,6 +1,6 @@ ;;; mojikyo-conf.el --- Setting for Mojikyo related coded-charsets -;; Copyright (C) 2001,2002 MORIOKA Tomohiko. +;; Copyright (C) 2001,2002,2003 MORIOKA Tomohiko. ;; Author: MORIOKA Tomohiko ;; Keywords: UTF-2000, ISO/IEC 10646, Unicode, UCS-4, MULE. @@ -24,6 +24,11 @@ ;;; Code: +(unless (memq 'mojikyo default-coded-charset-priority-list) + (setq default-coded-charset-priority-list + (append default-coded-charset-priority-list + '(mojikyo)))) + (let ((i 1) name) (while (<= i 21) @@ -39,6 +44,10 @@ (append default-coded-charset-priority-list '(mojikyo-2022-1)))) +(unless (memq 'mojikyo char-db-coded-charset-priority-list) + (setq char-db-coded-charset-priority-list + (append char-db-coded-charset-priority-list + '(mojikyo)))) (provide 'mojikyo-conf) -- 1.7.10.4