aboutsummaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2005-02-13 23:11:03 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2005-02-13 23:11:03 +0000
commit315fff0ea59de2faf27a03c34f578522f38d0754 (patch)
tree0456ccad2ba0a6e707cd796f32f46132825dc405 /elisp
parent38eaa89bfc51c19c3b4bd4a764b662a06762d6ab (diff)
downloadellinika-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')
-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.