diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2005-02-13 23:11:03 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2005-02-13 23:11:03 +0000 |
commit | 315fff0ea59de2faf27a03c34f578522f38d0754 (patch) | |
tree | 0456ccad2ba0a6e707cd796f32f46132825dc405 /elisp/ellinika-dict-mode.el | |
parent | 38eaa89bfc51c19c3b4bd4a764b662a06762d6ab (diff) | |
download | ellinika-315fff0ea59de2faf27a03c34f578522f38d0754.tar.gz ellinika-315fff0ea59de2faf27a03c34f578522f38d0754.tar.bz2 |
(ellinika-dict-guess-syntax): Handle <P ID..> tags
(ellinika-dict-begin-article): Allow an article in node and pos modes.
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@307 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'elisp/ellinika-dict-mode.el')
-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))) |