Permalink
Browse files

update.

  • Loading branch information...
1 parent 03b5108 commit cb1d185285abbec947407d62d58fffe8afc8e4e0 morioka committed Sep 22, 1998
Showing with 16 additions and 85 deletions.
  1. +1 −12 ChangeLog
  2. +0 −1 mcs-20.el
  3. +2 −25 mcs-e20.el
  4. +13 −27 mcs-xm.el
  5. +0 −20 poem-xm.el
View
@@ -1,19 +1,8 @@
-1998-10-01 MORIOKA Tomohiko <morioka@jaist.ac.jp>
-
- * mcs-e20.el (charsets-mime-charset-alist): Use `gb2312' and
- `big5' instead of `cn-gb-2312' and `cn-big5'.
-
- * mcs-xm.el (charsets-mime-charset-alist): Use `gb2312' and `big5'
- instead of `cn-gb-2312' and `cn-big5'.
-
- * mcs-20.el (mime-charset-coding-system-alist): Add `cn-gb' to
- default value.
-
1998-09-22 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* APEL: Version 9.0 was released.
- * Delete EMU-CFG and EMU-MK because they have not been used.
+ * Delete EMU-CFG and EMU-MK because they have been not used.
1998-09-22 Tanaka Akira <akr@jaist.ac.jp>
View
@@ -41,7 +41,6 @@
`,(let ((rest
'((us-ascii . raw-text)
(gb2312 . cn-gb-2312)
- (cn-gb . cn-gb-2312)
(iso-2022-jp-2 . iso-2022-7bit-ss2)
(x-ctext . ctext)
(unknown . undecided)
View
@@ -79,8 +79,8 @@
((ascii latin-jisx0201
katakana-jisx0201 japanese-jisx0208) . shift_jis)
((ascii korean-ksc5601) . euc-kr)
- ((ascii chinese-gb2312) . gb2312)
- ((ascii chinese-big5-1 chinese-big5-2) . big5)
+ ((ascii chinese-gb2312) . cn-gb-2312)
+ ((ascii chinese-big5-1 chinese-big5-2) . cn-big5)
((ascii latin-iso8859-1 greek-iso8859-7
latin-jisx0201 japanese-jisx0208-1978
chinese-gb2312 japanese-jisx0208
@@ -102,29 +102,6 @@
))
-(defun coding-system-to-mime-charset (coding-system)
- "Convert CODING-SYSTEM to a MIME-charset.
-Return nil if corresponding MIME-charset is not found."
- (or (car (rassq coding-system mime-charset-coding-system-alist))
- (coding-system-get coding-system 'mime-charset)))
-
-(defun mime-charset-list ()
- "Return a list of all existing MIME-charset."
- (let ((dest (mapcar (function car) mime-charset-coding-system-alist))
- (rest coding-system-list)
- cs)
- (while rest
- (setq cs (car rest))
- (unless (rassq cs mime-charset-coding-system-alist)
- (if (setq cs (coding-system-get cs 'mime-charset))
- (or (rassq cs mime-charset-coding-system-alist)
- (memq cs dest)
- (setq dest (cons cs dest))
- )))
- (setq rest (cdr rest)))
- dest))
-
-
;;; @ end
;;;
View
@@ -57,8 +57,7 @@
)))
(defcustom mime-iso646-character-unification-alist
- (eval-when-compile
- (let (dest
+ `,(let (dest
(i 33))
(while (< i 92)
(setq dest
@@ -73,7 +72,7 @@
(format "%c" i))
dest))
(setq i (1+ i)))
- (nreverse dest)))
+ (nreverse dest))
"Alist unified string vs. canonical string."
:group 'i18n
:type '(repeat (cons string string)))
@@ -163,8 +162,8 @@
((ascii latin-jisx0201
katakana-jisx0201 japanese-jisx0208) . shift_jis)
((ascii korean-ksc5601) . euc-kr)
- ((ascii chinese-gb2312) . gb2312)
- ((ascii chinese-big5-1 chinese-big5-2) . big5)
+ ((ascii chinese-gb2312) . cn-gb-2312)
+ ((ascii chinese-big5-1 chinese-big5-2) . cn-big5)
((ascii latin-iso8859-1 greek-iso8859-7
latin-jisx0201 japanese-jisx0208-1978
chinese-gb2312 japanese-jisx0208
@@ -174,31 +173,18 @@
chinese-gb2312 japanese-jisx0208
korean-ksc5601 japanese-jisx0212
chinese-cns11643-1 chinese-cns11643-2) . iso-2022-int-1)
+ ;; ((ascii latin-iso8859-1 latin-iso8859-2
+ ;; cyrillic-iso8859-5 greek-iso8859-7
+ ;; latin-jisx0201 japanese-jisx0208-1978
+ ;; chinese-gb2312 japanese-jisx0208
+ ;; korean-ksc5601 japanese-jisx0212
+ ;; chinese-cns11643-1 chinese-cns11643-2
+ ;; chinese-cns11643-3 chinese-cns11643-4
+ ;; chinese-cns11643-5 chinese-cns11643-6
+ ;; chinese-cns11643-7) . iso-2022-int-1)
))
-(defun coding-system-to-mime-charset (coding-system)
- "Convert CODING-SYSTEM to a MIME-charset.
-Return nil if corresponding MIME-charset is not found."
- (setq coding-system
- (coding-system-name (coding-system-base coding-system)))
- (or (car (rassq coding-system mime-charset-coding-system-alist))
- coding-system))
-
-(defun mime-charset-list ()
- "Return a list of all existing MIME-charset."
- (let ((dest (mapcar (function car) mime-charset-coding-system-alist))
- (rest (coding-system-list))
- cs)
- (while rest
- (setq cs (coding-system-name (coding-system-base (car rest))))
- (or (rassq cs mime-charset-coding-system-alist)
- (memq cs dest)
- (setq dest (cons cs dest)))
- (setq rest (cdr rest)))
- dest))
-
-
;;; @ end
;;;
View
@@ -69,26 +69,6 @@
mnemonic "ko/EUC"
eol-type nil)))
-;; (when (= (function-max-args 'coding-system-list) 0)
-;; (or (fboundp 'coding-system-list-internal)
-;; (fset 'coding-system-list-internal
-;; (symbol-function 'coding-system-list)))
-;; (defun coding-system-list (&optional base-only)
-;; "Return a list of all existing coding systems.
-;; If optional arg BASE-ONLY is non-nil, only base coding systems are listed."
-;; (if base-only
-;; (let (dest
-;; (rest (coding-system-list-internal))
-;; cs)
-;; (while rest
-;; (setq cs (coding-system-name (coding-system-base (pop rest))))
-;; (or (memq cs dest)
-;; (push cs dest))
-;; )
-;; dest)
-;; (coding-system-list-internal)))
-;; )
-
;;; @ buffer representation
;;;

0 comments on commit cb1d185

Please sign in to comment.