[elpa] externals/parsec b12a9c8 01/13: Made char-equal comparison case-sensitive in parsec-ch function

[Stefan Monnier]

branch: externals/parsec
commit b12a9c82b669842796c61812ac9aec22d0cf190f
Author: Justin Timmons <justinmtimmons@gmail.com>
Commit: Justin Timmons <justinmtimmons@gmail.com>

    Made char-equal comparison case-sensitive in parsec-ch function
---
 parsec.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/parsec.el b/parsec.el
index 3432e3d..fed0838 100644
--- a/parsec.el
+++ b/parsec.el
@@ -548,7 +548,8 @@
   "Parse a character CH."
   (let ((next-char (char-after)))
     (if (and (not (eobp))
-             (char-equal next-char ch))
+            (let ((case-fold-search nil)) ;; case sensitivity for char-equal
+              (char-equal next-char ch)))
         (progn (forward-char 1)
                (char-to-string ch))
       (parsec-stop :expected (char-to-string ch)