projects
/
elisp
/
apel.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Require `pces'.
[elisp/apel.git]
/
mcs-20.el
diff --git
a/mcs-20.el
b/mcs-20.el
index
aa4743f
..
fae467b
100644
(file)
--- a/
mcs-20.el
+++ b/
mcs-20.el
@@
-1,8
+1,8
@@
;;; mcs-20.el --- MIME charset implementation for Emacs 20 and XEmacs/mule
;;; mcs-20.el --- MIME charset implementation for Emacs 20 and XEmacs/mule
-;; Copyright (C) 1997,1998,1999 Free Software Foundation, Inc.
+;; Copyright (C) 1997,1998,1999,2000 Free Software Foundation, Inc.
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
;; Keywords: emulation, compatibility, Mule
;; This file is part of APEL (A Portable Emacs Library).
;; Keywords: emulation, compatibility, Mule
;; This file is part of APEL (A Portable Emacs Library).
@@
-29,10
+29,13
@@
;;; Code:
;;; Code:
-(require 'poem)
-(require 'pcustom)
+(require 'custom)
(eval-when-compile (require 'wid-edit))
(eval-when-compile (require 'wid-edit))
+(if (featurep 'xemacs)
+ (require 'mcs-xm)
+ (require 'mcs-e20))
+
;;; @ MIME charset
;;;
;;; @ MIME charset
;;;
@@
-132,7
+135,7
@@
is specified, it is used as line break code type of coding-system."
(widget-apply widget :notify widget event)
(widget-setup)))
(widget-apply widget :notify widget event)
(widget-setup)))
-(defcustom default-mime-charset 'x-ctext
+(defcustom default-mime-charset 'x-unknown
"Default value of MIME-charset.
It is used when MIME-charset is not specified.
It must be symbol."
"Default value of MIME-charset.
It is used when MIME-charset is not specified.
It must be symbol."