-;;; hebrew.el --- Support for Hebrew
+;;; hebrew.el --- support for Hebrew -*- coding: iso-2022-7bit; -*-
-;; Copyright (C) 1995 Free Software Foundation, Inc.
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
+;; Licensed to the Free Software Foundation.
+;; Copyright (C) 2001 Free Software Foundation, Inc.
;; Keywords: multilingual, Hebrew
;;; Commentary:
-;; For Hebrew, the character sets ISO8859-8 is supported.
+;; For Hebrew, the character set ISO8859-8 is supported.
+;; See http://www.ecma.ch/ecma1/STAND/ECMA-121.HTM.
+;; Windows-1255 is also supported.
;;; Code:
(make-coding-system
'hebrew-iso-8bit 2 ?8
- "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)"
- '((ascii t) (hebrew-iso8859-8 t) nil nil
- nil ascii-eol ascii-cntl nil nil nil nil nil t))
+ "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)."
+ '(ascii hebrew-iso8859-8 nil nil
+ nil ascii-eol ascii-cntl nil nil nil nil nil t)
+ '((safe-charsets ascii hebrew-iso8859-8)
+ (mime-charset . iso-8859-8)))
-(define-coding-system-alias 'hebrew-iso-8bit 'iso-8859-8)
+(define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit)
-(defun setup-hebrew-environment ()
- "Setup multilingual environment (MULE) for Hebrew.
-But, please note that right-to-left writing is not yet supported."
- (interactive)
- (setup-8-bit-environment 'hebrew-iso8859-8 'hebrew-iso-8bit
- '("Hebrew" . "quail-hebrew")))
+;; These are for Explicit and Implicit directionality information, as
+;; defined in RFC 1556. We don't yet support directional information
+;; in bidi languages, so these aliases are a lie, especially as far as
+;; iso-8859-8-e is concerned. FIXME.
+(define-coding-system-alias 'iso-8859-8-e 'hebrew-iso-8bit)
+(define-coding-system-alias 'iso-8859-8-i 'hebrew-iso-8bit)
(set-language-info-alist
- "Hebrew" '((setup-function . setup-hebrew-environment)
- (describe-function . describe-hebrew-support)
- (charset . (hebrew-iso8859-8))
+ "Hebrew" '((charset . (hebrew-iso8859-8))
+ (coding-priority hebrew-iso-8bit)
(coding-system . (hebrew-iso-8bit))
+ (nonascii-translation . hebrew-iso8859-8)
+ (input-method . "hebrew")
+ (unibyte-display . hebrew-iso-8bit)
(sample-text . "Hebrew \e,Hylem\e(B")
- (documentation . "Right-to-left writing is not yet supported.")
- ))
+ (documentation . "Right-to-left writing is not yet supported.")))
+
+(set-language-info-alist
+ "Windows-1255" '((coding-priority windows-1255)
+ (coding-system windows-1255)
+ (features code-pages)
+ (documentation . "\
+Support for Windows-1255 encoding, e.g. for Yiddish.
+Right-to-left writing is not yet supported.")))
+
+(provide 'hebrew)
;;; hebrew.el ends here