diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-14 16:15:27 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-14 16:15:27 +0000 |
commit | 6b1ad0096d670ada618f8a652524a28e98a34427 (patch) | |
tree | 93a6f5eed2e01b1a5008dae310baa206c5614324 /elisp/ellinika-dict-mode.el | |
parent | 9e83f5f8d7de73eec196c4da2162906657412b5a (diff) | |
download | ellinika-6b1ad0096d670ada618f8a652524a28e98a34427.tar.gz ellinika-6b1ad0096d670ada618f8a652524a28e98a34427.tar.bz2 |
(ellinika-guess-syntax): Bugfix
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@245 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'elisp/ellinika-dict-mode.el')
-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))) |