diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-30 16:53:19 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-30 16:53:19 +0000 |
commit | a93e628102a7b94d9e4d9da021a2bbcaaa5e9d35 (patch) | |
tree | 118a6616a52375d9f06707cf75a364da1d46d54c /elisp | |
parent | bac27ac7a0f578749455f72f99d0706d406ce395 (diff) | |
download | ellinika-a93e628102a7b94d9e4d9da021a2bbcaaa5e9d35.tar.gz ellinika-a93e628102a7b94d9e4d9da021a2bbcaaa5e9d35.tar.bz2 |
(greek-input): Allow to override default
greek input method using buffer-local variable greek-input-method.
(ancient-greek-input): New function. Enables greek-ibycus4 input
method by default. Can be overridden using buffer-local variable
ancient-greek-input-method.
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@270 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'elisp')
-rw-r--r-- | elisp/ellinika-mode.el | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/elisp/ellinika-mode.el b/elisp/ellinika-mode.el index 9549201..9ca7d6d 100644 --- a/elisp/ellinika-mode.el +++ b/elisp/ellinika-mode.el @@ -25,8 +25,18 @@ (defun greek-input (arg) (interactive "p") - (set-input-method 'greek)) + (set-input-method + (if (boundp 'greek-input-method) + greek-input-method + 'greek))) +(defun ancient-greek-input (arg) + (interactive "p") + (set-input-method + (if (boundp 'ancient-greek-input-method) + ancient-greek-input-method + 'greek-ibycus4))) + (defun alt-input (arg) (interactive "p") (if (boundp 'alternative-input-method) @@ -135,6 +145,8 @@ are derived from this one. \\{ellinika-mode-map}" (make-variable-buffer-local 'alternative-input-method) + (make-variable-buffer-local 'greek-input-method) + (make-variable-buffer-local 'ancient-greek-input-method) (make-variable-buffer-local 'alternative-dictionary) (make-variable-buffer-local 'ellinika-close-tag-hook) @@ -143,6 +155,7 @@ are derived from this one. (define-key ellinika-mode-map "\C-c\C-s" 'ellinika-ispell-alt) (define-key ellinika-mode-map "\M-g" 'greek-input) + (define-key ellinika-mode-map "\C-c\M-g" 'ancient-greek-input) (define-key ellinika-mode-map "\M-r" 'alt-input) (define-key ellinika-mode-map "<" 'ellinika-electric-obrace) (define-key ellinika-mode-map ">" 'ellinika-electric-cbrace) |