[elpa] master c61a38c 22/60: Add convenient newline methods

[Junpeng Qiu]

branch: master
commit c61a38c5eada1c33be1d08597e346c9559fa7ab6
Author: Junpeng Qiu <address@hidden>
Commit: Junpeng Qiu <address@hidden>

    Add convenient newline methods
---
 parsec.el |   11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/parsec.el b/parsec.el
index 5153c84..453a116 100644
--- a/parsec.el
+++ b/parsec.el
@@ -89,11 +89,22 @@
       (parsec-stop :expected (format "%s" pred)
                    :found (parsec-eof-or-char-as-string)))))
 
+(defun parsec-newline ()
+  (parsec-ch ?\n))
+
+(defun parsec-crlf ()
+  (parsec-and (parsec-ch ?\r) (parsec-ch ?\n)))
+
+(defun parsec-eol ()
+  (parsec-or (parsec-newline) (parsec-crlf)))
+
 (defun parsec-eob ()
   (unless (eobp)
     (parsec-stop :expected "`EOF'"
                  :found (parsec-eof-or-char-as-string))))
 
+(defalias 'parsec-eof 'parsec-eob)
+
 (defun parsec-re (regexp)
   (if (looking-at regexp)
       (progn (goto-char (match-end 0))