update.

[chise/xemacs-chise.git.1] / lisp / mule / hebrew.el

diff --git a/lisp/mule/hebrew.el b/lisp/mule/hebrew.el
index 767fc0a..d396df2 100644 (file)
--- a/lisp/mule/hebrew.el
+++ b/lisp/mule/hebrew.el
@@ -1,4 +1,4 @@
-;;; hebrew.el --- Support for Hebrew
+;;; hebrew.el --- Support for Hebrew -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -24,7 +24,7 @@
 
 ;;; Commentary:
 
-;; For Hebrew, the character sets ISO8859-8 is supported.
+;;  ISO 8859-8 (Hebrew) support.
 
 ;;; Code:
 
@@ -34,28 +34,20 @@
 (modify-syntax-entry (make-char 'hebrew-iso8859-8 32) "w") ; no-break space
 
 \f
-;; (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))
-
-;; (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit)
-
 (make-coding-system
  'iso-8859-8 'iso2022
- "MIME ISO-8859-8"
+ "ISO-8859-8 (ISO 2022 based 8-bit encoding for Hebrew)"
  '(charset-g0 ascii
    charset-g1 hebrew-iso8859-8
    charset-g2 t
    charset-g3 t
    no-iso6429 t
    mnemonic "MIME/Hbrw"
-))
+   ))
 
 (make-coding-system
  'ctext-hebrew 'iso2022
- "Coding-system of Hebrew."
+ "Coding-system for Hebrew."
  '(charset-g0 ascii
    charset-g1 hebrew-iso8859-8
    charset-g2 t
@@ -65,28 +57,16 @@
 
 (defun setup-hebrew-environment ()
   "Setup multilingual environment (MULE) for Hebrew.
-But, please note that right-to-left writing is not yet supported."
+Note: right-to-left writing is not yet supported."
   (interactive)
-  (setup-8-bit-environment "Hebrew" 'hebrew-iso8859-8 'iso-8859-8
-                          "hebrew")
-  (set-coding-category-system 'iso-8-designate 'iso-8859-8)
-  (set-coding-priority-list
-   '(iso-8-designate
-     iso-8-1
-     iso-7
-     iso-8-2
-     iso-lock-shift
-     no-conversion
-     shift-jis
-     big5))
-  )
+  (set-language-environment "Hebrew"))
 
 (set-language-info-alist
- "Hebrew" '((setup-function . setup-hebrew-environment)
-           (describe-function . describe-hebrew-support)
-           (charset . (hebrew-iso8859-8))
-           (coding-system . (iso-8859-8))
-           (sample-text . "Hebrew      \e,Hylem\e(B")
+ "Hebrew" '((charset hebrew-iso8859-8)
+           (coding-system iso-8859-8)
+           (coding-priority iso-8859-8)
+           (input-method . "hebrew")
+           (sample-text . "Hebrew      \e[2]\e,Hylem\e[0]\e(B")
            (documentation . "Right-to-left writing is not yet supported.")
            ))