From 961b54060a18f9d9b2a286e59e26ebe96c1040e6 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 7 Jan 2002 12:12:59 +0000 Subject: [PATCH] (default-coded-charset-priority-list): Add setting about for `mojikyo-pj-*'. --- lisp/utf-2000/mojikyo-conf.el | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) diff --git a/lisp/utf-2000/mojikyo-conf.el b/lisp/utf-2000/mojikyo-conf.el index 8cbb0cb..4bf6a8a 100644 --- a/lisp/utf-2000/mojikyo-conf.el +++ b/lisp/utf-2000/mojikyo-conf.el @@ -1,4 +1,42 @@ +;;; mojikyo-conf.el --- Setting for Mojikyo related coded-charsets + +;; Copyright (C) 2001,2002 MORIOKA Tomohiko. + +;; Author: MORIOKA Tomohiko +;; Keywords: UTF-2000, ISO/IEC 10646, Unicode, UCS-4, MULE. + +;; This file is part of XEmacs UTF-2000. + +;; XEmacs UTF-2000 is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 2, or (at +;; your option) any later version. + +;; XEmacs UTF-2000 is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs UTF-2000; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Code: + +(let ((i 1) + name) + (while (<= i 21) + (setq name (intern (format "mojikyo-pj-%d" i))) + (unless (memq name default-coded-charset-priority-list) + (setq default-coded-charset-priority-list + (append default-coded-charset-priority-list + (list name)))) + (setq i (1+ i)))) + (unless (memq 'mojikyo-2022-1 default-coded-charset-priority-list) (setq default-coded-charset-priority-list (append default-coded-charset-priority-list '(mojikyo-2022-1)))) + +;;; mojikyo-conf.el ends here -- 1.7.10.4