aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--elisp/ellinika-dict-mode.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/elisp/ellinika-dict-mode.el b/elisp/ellinika-dict-mode.el
index eefec36..3adeecf 100644
--- a/elisp/ellinika-dict-mode.el
+++ b/elisp/ellinika-dict-mode.el
@@ -46,6 +46,8 @@
(throw 'loop 'alternative-input))
((looking-at "<[KX]>")
(throw 'loop 'greek-input))
+ ((looking-at "<P\\s +ID=\"[^\"]+\">")
+ (throw 'loop 'pos))
((looking-at "<[PF]")
(throw 'loop 'greek-input))
((looking-at "<[CE]>")) ;; continue
@@ -97,7 +99,7 @@
(interactive "p")
(let ((syntax (ellinika-dict-guess-syntax)))
(cond
- ((eq syntax 'node)
+ ((or (eq syntax 'node) (eq syntax 'pos))
(ellinika-dict-init-block "M" (if (boundp 'alternative-input-method)
alternative-input-method
nil)))

Return to:

Send suggestions and report system problems to the System administrator.