Mercurial > hg > xemacs-beta

comparison lisp/apel/emu-x20.el @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents 3bb7ccffb0c0
children
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
1 ;;; emu-x20.el --- emu API implementation for XEmacs 20 with mule 1 ;;; emu-x20.el --- emu API implementation for XEmacs 20 with mule
2 2
3 ;; Copyright (C) 1994,1995,1996,1997 MORIOKA Tomohiko 3 ;; Copyright (C) 1994,1995,1996,1997 MORIOKA Tomohiko
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Version: $Id: emu-x20.el,v 1.2 1997/06/11 19:25:42 steve Exp $ 6 ;; Version: $Id: emu-x20.el,v 1.3 1997/09/03 02:55:28 steve Exp $
7 ;; Keywords: emulation, compatibility, Mule, XEmacs 7 ;; Keywords: emulation, compatibility, Mule, XEmacs
8 8
9 ;; This file is part of XEmacs. 9 ;; This file is part of XEmacs.
10 10
11 ;; XEmacs is free software; you can redistribute it and/or modify it 11 ;; XEmacs is free software; you can redistribute it and/or modify it
108 )) 108 ))
109 109
110 (defvar default-mime-charset 'x-ctext) 110 (defvar default-mime-charset 'x-ctext)
111 111
112 (defvar mime-charset-coding-system-alist 112 (defvar mime-charset-coding-system-alist
113 '((x-ctext . ctext) 113 '((x-ctext . ctext))
114 (iso-2022-jp-2 . iso-2022-ss2-7) 114 "Alist MIME CHARSET vs CODING-SYSTEM.
115 )) 115 MIME CHARSET and CODING-SYSTEM must be symbol.")
116 116
117 (defun mime-charset-to-coding-system (charset) 117 (defun mime-charset-to-coding-system (charset)
118 "Return coding-system by MIME charset." 118 "Return coding-system by MIME charset."
119 (if (stringp charset) 119 (if (stringp charset)
120 (setq charset (intern (downcase charset))) 120 (setq charset (intern (downcase charset)))