aboutsummaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
Diffstat (limited to 'elisp')
-rw-r--r--elisp/ellinika-dict-mode.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/elisp/ellinika-dict-mode.el b/elisp/ellinika-dict-mode.el
index c1e4719..b5473a6 100644
--- a/elisp/ellinika-dict-mode.el
+++ b/elisp/ellinika-dict-mode.el
@@ -48,7 +48,7 @@
(match-end 1))))
(setq ellinika-last-tag tag)
(cond
- ((string-equal tag "T")
+ ((or (string-equal tag "T") (string-equal tag "/T"))
(throw 'loop (ellinika-guess-syntax)))
((looking-at "</[MKXPF]>")
(throw 'loop 'node))
@@ -57,12 +57,12 @@
((looking-at "<M>")
(throw 'loop 'alternative-input))
((looking-at "<[KX]>")
- (throw 'loop 'greek-input)
- ((looking-at "<[PF]")
- (throw 'loop 'ascii-input))
- ((looking-at "<[CE]>")) ;; continue
- (t
- (throw 'loop 'invalid-tag))))))
+ (throw 'loop 'greek-input))
+ ((looking-at "<[PF]")
+ (throw 'loop 'greek-input))
+ ((looking-at "<[CE]>")) ;; continue
+ (t
+ (throw 'loop (intern tag))))))
'initial)))

Return to:

Send suggestions and report system problems to the System administrator.