* ew-parse.el: Use lookahead token.

[elisp/flim.git] / ew-data.el

diff --git a/ew-data.el b/ew-data.el
index bccd7e5..436b014 100644 (file)
--- a/ew-data.el
+++ b/ew-data.el
@@ -118,16 +118,13 @@
        '(ew:atom)))
     (setq frag1 (get (get frag1 'prev-frag) 'next-frag)))
   (while (not (eq frag1 frag2))
+    (setq frag2 (get frag2 'prev-frag))
     (unless (ew-comment-frag-p frag2)
-      (put frag2 'decode 'ew-decode-phrase))
-    (setq frag2 (get frag2 'prev-frag)))
-  (unless (ew-comment-frag-p frag2)
-    (put frag2 'decode 'ew-decode-phrase))
-  (setq frag2 (get frag2 'prev-frag))
-  (while (not (ew-token-last-frag-p frag2))
+      (put frag2 'decode 'ew-decode-phrase)))
+  (while (not (ew-token-last-frag-p
+              (setq frag2 (get frag2 'prev-frag))))
     (unless (ew-comment-frag-p frag2)
-      (put frag2 'decode 'ew-decode-phrase))
-    (setq frag2 (get frag2 'prev-frag))))
+      (put frag2 'decode 'ew-decode-phrase))))
 
 ;;; frag predicate