* TESTPAT: Use `\t' instead of raw TAB character.

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

diff --git a/ew-line.el b/ew-line.el
index 831d508..226935a 100644 (file)
--- a/ew-line.el
+++ b/ew-line.el
@@ -171,19 +171,19 @@
           (setq ,r ,p)
           (lex-scan-unibyte ,str ,p ,q
             (() (error "something wrong"))
-            (((* [^ "\r\n"])
+            (((* [^ "\r"])
               (* (+ ?\r) [^ "\r\n"] (* [^ "\r"]))
               (* ?\r)
               (?\r ?\n [" \t"]))
              (when (and ,others-fun (< ,r (- ,p 3))) (funcall ,others-fun ,r (- ,p 3)))
              (when ,fold-fun (funcall ,fold-fun (- ,p 3) ,p)))
-            (((* [^ "\r\n"])
+            (((* [^ "\r"])
               (* (+ ?\r) [^ "\r\n"] (* [^ "\r"]))
               (* ?\r)
               (?\r ?\n))
              (when (and ,others-fun (< ,r (- ,p 2))) (funcall ,others-fun ,r (- ,p 2)))
              (when ,nl-fun (funcall ,nl-fun (- ,p 2) ,p)))
-            (((* [^ "\r\n"])
+            (((* [^ "\r"])
               (* (+ ?\r) [^ "\r\n"] (* [^ "\r"]))
               (* ?\r))
              (when ,others-fun (funcall ,others-fun ,r ,p)))))