Mercurial > hg > xemacs-beta

comparison lisp/mule/hebrew-hooks.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents fe104dbd9147
children e45d5e7c476e
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
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-buffer-file-coding-system 'iso-8859-8) 63 (set-default-buffer-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 )) 68 ))