diff options
Diffstat (limited to 'elisp')
-rw-r--r-- | elisp/ellinika-dict-mode.el | 14 |
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))) |