aboutsummaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
Diffstat (limited to 'elisp')
-rw-r--r--elisp/ellinika-mode.el15
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)

Return to:

Send suggestions and report system problems to the System administrator.