(indian-make-hash): Switch makehash -> make-hash-table.

[gnu-emacs] / lisp / language / hebrew.el

diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index 3e8ad4d838944a9225da2b04642c5b482a5e41b1..ad349495a7b04d487bd1ee7abea4e05a099136ff 100644 (file)
--- a/lisp/language/hebrew.el
+++ b/lisp/language/hebrew.el
@@ -1,7 +1,8 @@
-;;; hebrew.el --- Support for Hebrew -*- coding: iso-2022-7bit; -*-
+;;; hebrew.el --- support for Hebrew -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
+;; Copyright (C) 2001 Free Software Foundation, Inc.
 
 ;; Keywords: multilingual, Hebrew
 
@@ -24,13 +25,15 @@
 
 ;;; 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)"
+ "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)
@@ -38,6 +41,13 @@
 
 (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit)
 
+;; 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" '((charset . (hebrew-iso8859-8))
            (coding-priority hebrew-iso-8bit)
@@ -46,7 +56,16 @@
            (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