Mercurial > hg > xemacs-beta

comparison lisp/mule/hebrew-hooks.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children fe104dbd9147
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
27 ;;; HEBREW 27 ;;; HEBREW
28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
29 29
30 ;; Syntax of Hebrew characters 30 ;; Syntax of Hebrew characters
31 (loop for c from 96 to 122 31 (loop for c from 96 to 122
32 do (modify-syntax-entry (make-char 'hebrew c) "w")) 32 do (modify-syntax-entry (make-char 'hebrew-iso8859-8 c) "w"))
33 (modify-syntax-entry (make-char 'hebrew 32) "w") ; no-break space 33 (modify-syntax-entry (make-char 'hebrew-iso8859-8 32) "w") ; no-break space
34 34
35 (make-coding-system 35 (make-coding-system
36 'iso-8859-8 'iso2022 36 'iso-8859-8 'iso2022
37 "MIME ISO-8859-8" 37 "MIME ISO-8859-8"
38 '(charset-g0 ascii 38 '(charset-g0 ascii
39 charset-g1 hebrew 39 charset-g1 hebrew-iso8859-8
40 charset-g2 t 40 charset-g2 t
41 charset-g3 t 41 charset-g3 t
42 no-iso6429 t 42 no-iso6429 t
43 mnemonic "MIME/Hbrw" 43 mnemonic "MIME/Hbrw"
44 )) 44 ))
45 45
46 (make-coding-system 46 (make-coding-system
47 'ctext-hebrew 'iso2022 47 'ctext-hebrew 'iso2022
48 "Coding-system of Hebrew." 48 "Coding-system of Hebrew."
49 '(charset-g0 ascii 49 '(charset-g0 ascii
50 charset-g1 hebrew 50 charset-g1 hebrew-iso8859-8
51 charset-g2 t 51 charset-g2 t
52 charset-g3 t 52 charset-g3 t
53 mnemonic "CText/Hbrw" 53 mnemonic "CText/Hbrw"
54 )) 54 ))
55 55
56 (add-hook 'quail-package-alist '("hebrew" "quail/hebrew")) 56 ;;(add-hook 'quail-package-alist '("hebrew" "quail/hebrew"))
57 57
58 (define-language-environment 'hebrew 58 (define-language-environment 'hebrew
59 "Hebrew" 59 "Hebrew"
60 (lambda () 60 (lambda ()
61 (set-coding-category-system 'iso-8-designate 'iso-8859-8) 61 (set-coding-category-system 'iso-8-designate 'iso-8859-8)
62 (set-coding-priority-list '(iso-8-designate iso-8-1)) 62 (set-coding-priority-list '(iso-8-designate iso-8-1))
63 (set-default-file-coding-system 'iso-8859-8) 63 (set-default-file-coding-system 'iso-8859-8)
64 (setq terminal-coding-system 'iso-8859-8) 64 (setq terminal-coding-system 'iso-8859-8)
65 (setq keyboard-coding-system 'iso-8859-8) 65 (setq keyboard-coding-system 'iso-8859-8)
66 (setq-default quail-current-package 66 ;; (setq-default quail-current-package
67 (assoc "hebrew" quail-package-alist)))) 67 ;; (assoc "hebrew" quail-package-alist))))
68 ))