/[emacs]/emacs/lisp/language/georgian.el
ViewVC logotype

Diff of /emacs/lisp/language/georgian.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by fx, Sun Jan 5 00:55:51 2003 UTC revision 1.6.6.1 by handa, Mon Sep 8 12:53:41 2003 UTC
# Line 1  Line 1 
1  ;;; georgian.el --- language support for Georgian -*- no-byte-compile: t -*-  ;;; georgian.el --- language support for Georgian -*- no-byte-compile: t -*-
2    
3  ;; Copyright (C) 2001  Free Software Foundation, Inc.  ;; Copyright (C) 2001, 2003  Free Software Foundation, Inc.
4    
5  ;; Author: Dave Love <fx@gnu.org>  ;; Author: Dave Love <fx@gnu.org>
6  ;; Keywords: i18n  ;; Keywords: i18n
# Line 26  Line 26 
26    
27  ;;; Code:  ;;; Code:
28    
29    (define-coding-system 'georgian-ps
30      "Georgian PS encoding"
31      :coding-type 'charset
32      :mnemonic ?G
33      :charset-list '(georgian-ps))
34    
35    (define-coding-system 'georgian-academy
36      "Georgian Academy encoding"
37      :coding-type 'charset
38      :mnemonic ?G
39      :charset-list '(georgian-academy))
40    
41  (set-language-info-alist  (set-language-info-alist
42   "Georgian" `((coding-system georgian-ps)   "Georgian" `((coding-system georgian-ps)
43                (coding-priority georgian-ps)                (coding-priority georgian-ps)
44                (input-method . "georgian")                (input-method . "georgian")
45                (features code-pages)                (nonascii-translation . georgian-ps)
               (nonascii-translation . ,(get 'decode-georgian-ps  
                                             'translation-table))  
46                (documentation . "Support for georgian-ps character set."))                (documentation . "Support for georgian-ps character set."))
47   '("European"))                         ; fixme: is this appropriate for   '("European"))                         ; fixme: is this appropriate for
48                                          ; a non-Latin script?                                          ; a non-Latin script?

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.6.6.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26