+Thu Jul 11 14:11:12 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.36 was released.
+
+ * emu.el (emacs-minor-version): New variable for Emacs 18.
+
+Thu Jul 11 13:59:54 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-nemacs.el (charsets-mime-charset-alist): New variable.
+ (default-mime-charset): New variable.
+ (mime-charset-coding-system-alist): New variable.
+ (mime-charset-to-coding-system): New function.
+ (detect-mime-charset-region): New function.
+ (encode-mime-charset-region): New function.
+ (encode-mime-charset-string): New function.
+
+Thu Jul 11 09:04:23 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu.el (charsets-to-mime-charset): New function; moved from
+ emu-*.el.
+
+Thu Jul 11 08:58:54 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-x20.el, emu-mule.el, emu-e19.el: Function
+ `charsets-to-mime-charset' was moved to emu.el.
+
+ * emu-e19.el (charsets-mime-charset-alist): New variable.
+ (default-mime-charset): New variable.
+ (charsets-to-mime-charset): New function.
+ (detect-mime-charset-region): New function.
+ (encode-mime-charset-region): New function.
+ (encode-mime-charset-string): New function.
+
+Wed Jul 10 13:58:11 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-x20.el (encode-mime-charset-region): New function.
+ (encode-mime-charset-string): New function.
+
+Wed Jul 10 13:55:09 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-x20.el (detect-mime-charset-region): New function.
+
+ * emu-x20.el (mime-charset-to-coding-system): New function.
+
+ * emu-x20.el (mime-charset-coding-system-alist): New variable.
+
+ * emu-x20.el (charsets-to-mime-charset): New function.
+
+ * emu-x20.el (default-mime-charset): New variable.
+
+ * emu-x20.el: charset constants were abolished.
+ (charsets-mime-charset-alist): New variable.
+
+ * emu-mule.el: charset constants were abolished.
+
+Wed Jul 10 12:54:46 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-mule.el (encode-mime-charset-string): New function.
+
+Wed Jul 10 11:58:23 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-mule.el (encode-mime-charset-region): New function.
+
+\f
Tue Jul 9 13:16:23 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.31.1 was released.
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-e19.el,v 7.22 1996/06/26 08:27:20 morioka Exp $
+;;; $Id: emu-e19.el,v 7.24 1996/07/11 08:51:00 morioka Exp $
;;; Keywords: emulation, compatibility, Mule, Latin-1
;;;
;;; This file is part of tl (Tiny Library).
)))
+;;; @ MIME charset
+;;;
+
+(defvar charsets-mime-charset-alist
+ (list (cons (list charset-ascii) 'us-ascii)))
+
+(defvar default-mime-charset 'iso-8859-1)
+
+(defun detect-mime-charset-region (start end)
+ "Return MIME charset for region between START and END.
+\[emu-e19.el]"
+ (if (save-excursion
+ (save-restriction
+ (narrow-to-region start end)
+ (goto-char start)
+ (re-search-forward "[\200-\377]" nil t)
+ ))
+ default-mime-charset
+ 'us-ascii))
+
+(defun encode-mime-charset-region (start end charset)
+ "Encode the text between START and END which is
+encoded in MIME CHARSET. [emu-e19.el]"
+ )
+
+(defun encode-mime-charset-string (string charset)
+ "Encode the STRING which is encoded in MIME CHARSET. [emu-e19.el]"
+ string)
+
+
;;; @ character
;;;
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-mule.el,v 7.31 1996/07/08 07:46:02 morioka Exp $
+;;; $Id: emu-mule.el,v 7.36 1996/07/11 09:03:20 morioka Exp $
;;; Keywords: emulation, compatibility, Mule
;;;
;;; This file is part of tl (Tiny Library).
;;; @ character set
;;;
-;; 94 character set
-(defconst charset-ascii lc-ascii "ASCII")
-(defconst charset-jisx0201-kana lc-kana "JIS X0201 Katakana")
-(defconst charset-jisx0201-latin lc-roman "JIS X0201 Latin")
-
-;; 96 character set
-(defconst charset-latin-1 lc-ltn1 "ISO-8859-1 (Latin-1)")
-(defconst charset-latin-2 lc-ltn2 "ISO-8859-2 (Latin-2)")
-(defconst charset-latin-3 lc-ltn3 "ISO-8859-3 (Latin-3)")
-(defconst charset-latin-4 lc-ltn4 "ISO-8859-4 (Latin-4)")
-(defconst charset-cyrillic lc-crl "ISO-8859-5 (Cyrillic)")
-(defconst charset-arabic lc-arb "ISO-8859-6 (Arabic)")
-(defconst charset-greek lc-grk "ISO-8859-7 (Greek)")
-(defconst charset-hebrew lc-hbw "ISO-8859-8 (Hebrew)")
-(defconst charset-latin-5 lc-ltn5 "ISO-8859-9 (Latin-5)")
-
-;; 94x94 character set
-(defconst charset-jisx0208-1978 lc-jpold "JIS X0208-1978")
-(defconst charset-gb2312 lc-cn "GB 2312-1980")
-(defconst charset-jisx0208 lc-jp "JIS X0208-1983")
-(defconst charset-ksc5601 lc-kr "KS C5601-1987")
-(defconst charset-jisx0212 lc-jp2 "JIS X0212-1990")
-(defconst charset-cns11643-1 lc-cns1 "CNS 11643-1986 plane 1")
-(defconst charset-cns11643-2 lc-cns2 "CNS 11643-1986 plane 2")
-(defconst charset-cns11643-3 lc-cns3 "CNS 11643-1986 plane 3")
-(defconst charset-cns11643-4 lc-cns4 "CNS 11643-1986 plane 4")
-(defconst charset-cns11643-5 lc-cns5 "CNS 11643-1986 plane 5")
-(defconst charset-cns11643-6 lc-cns6 "CNS 11643-1986 plane 6")
-(defconst charset-cns11643-7 lc-cns7 "CNS 11643-1986 plane 7")
-
-;; Big 5
-(defconst charset-big5-1 lc-big5-1 "Big5 Level 1")
-(defconst charset-big5-2 lc-big5-2 "Big5 Level 2")
-
(defalias 'charset-description 'char-description)
(defalias 'charset-registry 'char-registry)
(defalias 'charset-columns 'char-width)
(defvar default-mime-charset 'iso-2022-int-1)
-(defun charsets-to-mime-charset (charsets)
- (if charsets
- (or (catch 'tag
- (let ((rest charsets-mime-charset-alist)
- cell csl)
- (while (setq cell (car rest))
- (if (catch 'not-subset
- (let ((set1 charsets)
- (set2 (car cell))
- obj)
- (while set1
- (setq obj (car set1))
- (or (memq obj set2)
- (throw 'not-subset nil)
- )
- (setq set1 (cdr set1))
- )
- t))
- (throw 'tag (cdr cell))
- )
- (setq rest (cdr rest))
- )))
- default-mime-charset)))
-
-(defun detect-mime-charset-region (beg end)
- (charsets-to-mime-charset
- (cons lc-ascii (find-charset-region beg end))))
-
(defvar mime-charset-coding-system-alist
'((iso-8859-1 . *ctext*)
(gb2312 . *euc-china*)
(and (coding-system-p cs) cs)
)))
+(defun detect-mime-charset-region (start end)
+ "Return MIME charset for region between START and END.
+\[emu-mule.el]"
+ (charsets-to-mime-charset
+ (cons lc-ascii (find-charset-region start end))))
+
+(defun encode-mime-charset-region (start end charset)
+ "Encode the text between START and END which is
+encoded in MIME CHARSET. [emu-mule.el]"
+ (let ((cs (mime-charset-to-coding-system charset)))
+ (if cs
+ (code-convert start end *internal* cs)
+ )))
+
+(defun encode-mime-charset-string (string charset)
+ "Encode the STRING which is encoded in MIME CHARSET. [emu-mule.el]"
+ (let ((cs (mime-charset-to-coding-system charset)))
+ (if cs
+ (code-convert-string string *internal* cs)
+ string)))
+
;;; @ character
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-nemacs.el,v 7.31 1996/06/26 08:25:19 morioka Exp $
+;;; $Id: emu-nemacs.el,v 7.32 1996/07/11 13:59:54 morioka Exp $
;;; Keywords: emulation, compatibility, NEmacs, Mule
;;;
;;; This file is part of tl (Tiny Library).
)))
+;;; @ MIME charset
+;;;
+
+(defvar charsets-mime-charset-alist
+ (list (cons (list charset-ascii) 'us-ascii)))
+
+(defvar default-mime-charset 'iso-2022-jp)
+
+(defvar mime-charset-coding-system-alist
+ '((iso-2022-jp . 2)
+ (shift_jis . 1)
+ ))
+
+(defun mime-charset-to-coding-system (charset)
+ (if (stringp charset)
+ (setq charset (intern (downcase charset)))
+ )
+ (cdr (assq charset mime-charset-coding-system-alist))
+ )
+
+(defun detect-mime-charset-region (start end)
+ "Return MIME charset for region between START and END.
+\[emu-nemacs.el]"
+ (if (save-excursion
+ (save-restriction
+ (narrow-to-region start end)
+ (goto-char start)
+ (re-search-forward "[\200-\377]" nil t)
+ ))
+ default-mime-charset
+ 'us-ascii))
+
+(defun encode-mime-charset-region (start end charset)
+ "Encode the text between START and END which is
+encoded in MIME CHARSET. [emu-nemacs.el]"
+ (let ((cs (mime-charset-to-coding-system charset)))
+ (if cs
+ (save-excursion
+ (save-restriction
+ (narrow-to-region start end)
+ (convert-region-kanji-code start end 3 cs)
+ )))))
+
+(defun encode-mime-charset-string (string charset)
+ "Encode the STRING which is encoded in MIME CHARSET. [emu-nemacs.el]"
+ (let ((cs (mime-charset-to-coding-system charset)))
+ (if cs
+ (convert-string-kanji-code string 3 cs)
+ string)))
+
+
;;; @ character
;;;
;;;
-;;; emu-x20.el --- Mule 2 emulation module for XEmacs 20 with Mule
+;;; emu-x20.el --- emu API implementation for XEmacs 20 with mule
;;;
;;; Copyright (C) 1995 Free Software Foundation, Inc.
;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-x20.el,v 7.18 1996/06/30 01:00:37 morioka Exp $
+;;; $Id: emu-x20.el,v 7.27 1996/07/11 09:02:01 morioka Exp $
;;; Keywords: emulation, compatibility, Mule, XEmacs
;;;
;;; This file is part of tl (Tiny Library).
;;; @ character set
;;;
-(mapcar (lambda (charset)
- (set
- (cond ((eq charset 'japanese-kana) 'charset-jisx0201-kana)
- ((eq charset 'japanese-roman) 'charset-jisx0201-latin)
- ((eq charset 'japanese-old) 'charset-jisx0208-1978)
- ((eq charset 'chinese-gb) 'charset-gb2312)
- ((eq charset 'japanese) 'charset-jisx0208)
- ((eq charset 'koran) 'charset-ksc5601)
- ((eq charset 'japanese-2) 'charset-jisx0212)
- ((eq charset 'chinese-cns-1) 'charset-cns11643-1)
- ((eq charset 'chinese-cns-2) 'charset-cns11643-2)
- ((eq charset 'chinese-cns-3) 'charset-cns11643-3)
- ((eq charset 'chinese-cns-4) 'charset-cns11643-4)
- ((eq charset 'chinese-cns-5) 'charset-cns11643-5)
- ((eq charset 'chinese-cns-6) 'charset-cns11643-6)
- ((eq charset 'chinese-cns-7) 'charset-cns11643-7)
- ((eq charset 'chinese-big5-1) 'charset-big5-1)
- ((eq charset 'chinese-big5-2) 'charset-big5-2)
- (t (intern (concat "charset-" (symbol-name charset))))
- )
- charset)
- )
- (charset-list)
- )
-
(defalias 'charset-description 'charset-doc-string)
(defun find-charset-string (string)
,@body))
+;;; @ MIME charset
+;;;
+
+(defvar charsets-mime-charset-alist
+ '(((ascii) . us-ascii)
+ ((ascii latin-1) . iso-8859-1)
+ ((ascii latin-2) . iso-8859-2)
+ ((ascii latin-3) . iso-8859-3)
+ ((ascii latin-4) . iso-8859-4)
+;;; ((ascii cyrillic) . iso-8859-5)
+ ((ascii cyrillic) . koi8-r)
+ ((ascii arabic) . iso-8859-6)
+ ((ascii greek) . iso-8859-7)
+ ((ascii hebrew) . iso-8859-8)
+ ((ascii latin-5) . iso-8859-9)
+ ((ascii japanese-old japanese) . iso-2022-jp)
+ ((ascii korean) . euc-kr)
+ ((ascii chinese-big5-1 chinese-big5-2) . big5)
+ ((ascii japanese-old chinese-gb japanese korean
+ japanese-2 latin-1 greek) . iso-2022-jp-2)
+ ((ascii japanese-old chinese-gb japanese korean
+ japanese-2 chinese-cns-1 chinese-cns-2
+ latin-1 greek) . iso-2022-int-1)
+ ))
+
+(defvar default-mime-charset 'iso-2022-int-1)
+
+(defvar mime-charset-coding-system-alist
+ '((iso-8859-1 . ctext)
+ (gb2312 . euc-china)
+ (koi8-r . koi8)
+ (iso-2022-jp-2 . iso-2022-ss2-7)
+ (x-iso-2022-jp-2 . iso-2022-ss2-7)
+ (shift_jis . sjis)
+ (x-shiftjis . sjis)
+ ))
+
+(defun mime-charset-to-coding-system (charset)
+ "Return coding-system by MIME charset. [emu-x20.el]"
+ (if (stringp charset)
+ (setq charset (intern (downcase charset)))
+ )
+ (or (cdr (assq charset mime-charset-coding-system-alist))
+ (and (memq charset (coding-system-list)) charset)
+ ))
+
+(defun detect-mime-charset-region (start end)
+ "Return MIME charset for region between START and END.
+\[emu-x20.el]"
+ (charsets-to-mime-charset (charsets-in-region start end)))
+
+(defun encode-mime-charset-region (start end charset)
+ "Encode the text between START and END which is
+encoded in MIME CHARSET. [emu-x20.el]"
+ (let ((cs (mime-charset-to-coding-system charset)))
+ (if cs
+ (encode-coding-region start end cs)
+ )))
+
+(defun encode-mime-charset-string (string charset)
+ "Encode the STRING which is encoded in MIME CHARSET. [emu-x20.el]"
+ (let ((cs (mime-charset-to-coding-system charset)))
+ (if cs
+ (encode-coding-string string cs)
+ string)))
+
+
;;; @ character
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
;;; Version:
-;;; $Id: emu.el,v 7.17 1996/07/03 06:27:10 morioka Exp $
+;;; $Id: emu.el,v 7.19 1996/07/11 14:11:12 morioka Exp $
;;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs
;;;
;;; This file is part of tl (Tiny Library).
(or (boundp 'emacs-major-version)
(defconst emacs-major-version (string-to-int emacs-version)))
+(or (boundp 'emacs-minor-version)
+ (defconst emacs-minor-version
+ (string-to-int
+ (substring emacs-version (string-match "18\\." emacs-version)))))
(defvar running-emacs-18 (<= emacs-major-version 18))
(defvar running-xemacs (string-match "XEmacs" emacs-version))
))
+;;; @ MIME charset
+;;;
+
+(defun charsets-to-mime-charset (charsets)
+ "Return MIME charset from list of charset CHARSETS.
+This function refers variable `charsets-mime-charset-alist'
+and `default-mime-charset'. [emu.el]"
+ (if charsets
+ (or (catch 'tag
+ (let ((rest charsets-mime-charset-alist)
+ cell csl)
+ (while (setq cell (car rest))
+ (if (catch 'not-subset
+ (let ((set1 charsets)
+ (set2 (car cell))
+ obj)
+ (while set1
+ (setq obj (car set1))
+ (or (memq obj set2)
+ (throw 'not-subset nil)
+ )
+ (setq set1 (cdr set1))
+ )
+ t))
+ (throw 'tag (cdr cell))
+ )
+ (setq rest (cdr rest))
+ )))
+ default-mime-charset)))
+
+
;;; @ Emacs 19.29 emulation
;;;
projects / elisp / apel.git / commitdiff