diff options
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) |