From 45c26ad2f8199dddfeb1ec42c40e19c4c12628fc Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 25 Mar 1998 14:13:27 +0000 Subject: [PATCH] sync up with emu-unify branch. --- ChangeLog | 9 +++++++++ emu-20.el | 7 +++++-- 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 632f82c..e95cd2d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,14 @@ 1998-03-25 MORIOKA Tomohiko + * emu-20.el (mime-charset-coding-system-alist): Use 'defcustom. + +1998-03-25 MORIOKA Tomohiko + + * emu-20.el: Require 'wid-edit when compile. + + +1998-03-25 MORIOKA Tomohiko + * APEL: Version 7.5 was released. 1998-03-24 MORIOKA Tomohiko diff --git a/emu-20.el b/emu-20.el index 64e09e1..a6e0e92 100644 --- a/emu-20.el +++ b/emu-20.el @@ -30,6 +30,7 @@ ;;; Code: (require 'custom) +(eval-when-compile (require 'wid-edit)) ;;; @ binary access @@ -70,7 +71,7 @@ This constant is defined to emulate old MULE anything older than MULE ;;; @ MIME charset ;;; -(defvar mime-charset-coding-system-alist +(defcustom mime-charset-coding-system-alist `,(let ((rest '((us-ascii . iso-8859-1) (gb2312 . cn-gb-2312) @@ -87,7 +88,9 @@ This constant is defined to emulate old MULE anything older than MULE ) dest) "Alist MIME CHARSET vs CODING-SYSTEM. -MIME CHARSET and CODING-SYSTEM must be symbol.") +MIME CHARSET and CODING-SYSTEM must be symbol." + :group 'i18n + :type '(repeat (cons symbol coding-system))) (defsubst mime-charset-to-coding-system (charset &optional lbt) "Return coding-system corresponding with CHARSET. -- 1.7.10.4