-;;; misc-lang.el --- support for miscellaneous languages (characters)
+;;; misc-lang.el --- support for miscellaneous languages (characters) -*- no-byte-compile: t -*-
-;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
-;; Licensed to the Free Software Foundation.
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+;; 2005, 2006
+;; National Institute of Advanced Industrial Science and Technology (AIST)
+;; Registration Number H14PRO021
;; Keywords: multilingual, character set, coding system
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;;; Code:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; IPA (International Phonetic Alphabet)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(defun setup-ipa-environment ()
- "Setup multilingual environment (MULE) for IPA."
- (interactive)
- (setup-english-environment))
-
(set-language-info-alist
- "IPA" '((setup-function . setup-ipa-environment)
- (charset . (ipa))
+ "IPA" '((charset . (ipa))
+ (coding-priority iso-2022-7bit)
+ (coding-system iso-2022-7bit)
+ (input-method . "ipa")
+ (nonascii-translation . ipa)
+ (unibyte-display . iso-2022-7bit)
(documentation . "\
IPA is International Phonetic Alphabet for English, French, German
and Italian.")))
-;;; misc-lang.el ends here
+;; This is for Arabic. But, as we still don't have Arabic language
+;; support, we at least define a coding system here.
+(define-coding-system 'iso-8859-6
+ "ISO-8859-6 based encoding (MIME:ISO-8859-6)."
+ :coding-type 'charset
+ :mnemonic ?6
+ :charset-list '(iso-8859-6)
+ :mime-charset 'iso-8859-6)
+
+(provide 'misc-lang)
+
+;;; arch-tag: 6953585c-1a1a-4c09-be82-a2518afb6074
+;;; misc-lang.el ends here