diff options
-rw-r--r-- | elisp/ellinika-dict-mode.el | 4 |
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))) |