Mercurial > hg > xemacs-beta

diff lisp/mule/greek-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 3bb7ccffb0c0
line wrap: on
line diff
--- a/lisp/mule/greek-hooks.el	Mon Aug 13 09:31:13 2007 +0200
+++ b/lisp/mule/greek-hooks.el	Mon Aug 13 09:31:46 2007 +0200
@@ -27,9 +27,9 @@
 (loop for c from 54 to 126
       do (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w"))
 (modify-syntax-entry (make-char 'greek-iso8859-7 32) "w") ; no-break space
-(modify-syntax-entry ?,F7(B ".")
-(modify-syntax-entry ?,F;(B ".")
-(modify-syntax-entry ?,F=(B ".")
+(modify-syntax-entry ?-F· ".")-A
+(modify-syntax-entry ?-F» ".")-A
+(modify-syntax-entry ?-F½ ".")-A
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -45,7 +45,7 @@
    mnemonic "MIME/Grk"
    ))
 
-;;(add-hook 'quail-package-alist '("greek" "quail/greek"))
+(add-hook 'quail-package-alist '("greek" "quail-greek"))
 
 (define-language-environment 'greek
   "Greek"
@@ -55,6 +55,6 @@
     (set-default-buffer-file-coding-system 'iso-8859-7)
     (setq terminal-coding-system 'iso-8859-7)
     (setq keyboard-coding-system 'iso-8859-7)
-;;  (setq-default quail-current-package
-;;		  (assoc "greek" quail-package-alist))))
+    (setq-default quail-current-package
+		  (assoc "greek" quail-package-alist))
     ))