Mercurial > hg > xemacs-beta

comparison lisp/mule/hebrew-hooks.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents
children 54cc21c15cbb
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;;; hebrew-hooks.el --- pre-loaded support for Hebrew.
2
3 ;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Amdahl Corporation.
5 ;; Copyright (C) 1995 Sun Microsystems.
6
7 ;; This file is part of XEmacs.
8
9 ;; XEmacs is free software; you can redistribute it and/or modify it
10 ;; under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation; either version 2, or (at your option)
12 ;; any later version.
13
14 ;; XEmacs is distributed in the hope that it will be useful, but
15 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 ;; General Public License for more details.
18
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with XEmacs; see the file COPYING. If not, write to the
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
22 ;; Boston, MA 02111-1307, USA.
23
24 ;;; Synched up with: Mule 2.3.
25
26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
27 ;;; HEBREW
28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
29
30 ;; Syntax of Hebrew characters
31 (loop for c from 96 to 122
32 do (modify-syntax-entry (make-char 'hebrew c) "w"))
33 (modify-syntax-entry (make-char 'hebrew 32) "w") ; no-break space
34
35 (make-coding-system
36 'iso-8859-8 'iso2022
37 "MIME ISO-8859-8"
38 '(charset-g0 ascii
39 charset-g1 hebrew
40 charset-g2 t
41 charset-g3 t
42 no-iso6429 t
43 mnemonic "MIME/Hbrw"
44 ))
45
46 (make-coding-system
47 'ctext-hebrew 'iso2022
48 "Coding-system of Hebrew."
49 '(charset-g0 ascii
50 charset-g1 hebrew
51 charset-g2 t
52 charset-g3 t
53 mnemonic "CText/Hbrw"
54 ))
55
56 (add-hook 'quail-package-alist '("hebrew" "quail/hebrew"))
57
58 (define-language-environment 'hebrew
59 "Hebrew"
60 (lambda ()
61 (set-coding-category-system 'iso-8-designate 'iso-8859-8)
62 (set-coding-priority-list '(iso-8-designate iso-8-1))
63 (set-default-file-coding-system 'iso-8859-8)
64 (setq terminal-coding-system 'iso-8859-8)
65 (setq keyboard-coding-system 'iso-8859-8)
66 (setq-default quail-current-package
67 (assoc "hebrew" quail-package-alist))))