-;;; greek.el --- Support for Greek
+;;; greek.el --- support for Greek -*- no-byte-compile: t -*-
-;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
-;; Licensed to the Free Software Foundation.
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+;; 2005, 2006, 2007
+;; National Institute of Advanced Industrial Science and Technology (AIST)
+;; Registration Number H14PRO021
;; Keywords: multilingual, Greek
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
(make-coding-system
'greek-iso-8bit 2 ?7
- "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)"
+ "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)."
'(ascii greek-iso8859-7 nil nil
- nil nil nil nil nil nil nil)
+ nil nil nil nil nil nil nil nil nil nil nil t)
'((safe-charsets ascii greek-iso8859-7)
(mime-charset . iso-8859-7)))
(define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)
-(defun setup-greek-environment ()
- "Setup multilingual environment (MULE) for Greek."
- (interactive)
- (setup-8-bit-environment "Greek" 'greek-iso8859-7 "greek-postfix"))
-
(set-language-info-alist
- "Greek" '((setup-function . setup-greek-environment)
- (charset . (greek-iso8859-7))
+ "Greek" '((charset . (greek-iso8859-7))
(coding-system . (greek-iso-8bit))
(coding-priority greek-iso-8bit)
- (sample-text . "Greek (\e,FGkk]mija\e(B) \e,FCei\\e(B \e,Fsar\e(B")
+ (nonascii-translation . greek-iso8859-7)
+ (input-method . "greek")
+ (unibyte-display . greek-iso-8bit)
(documentation . t)))
+(provide 'greek)
+
+;;; arch-tag: 9ba48d79-84bc-45e1-9318-685dc3921410
;;; greek.el ends here