aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2004-10-14 16:15:27 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2004-10-14 16:15:27 +0000
commit6b1ad0096d670ada618f8a652524a28e98a34427 (patch)
tree93a6f5eed2e01b1a5008dae310baa206c5614324
parent9e83f5f8d7de73eec196c4da2162906657412b5a (diff)
downloadellinika-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
-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.