Possible fix for spurious protocol errors

src/ChangeLog

+1999-10-25  David Byers  <davby@ida.liu.se>
+
+	* parse.el (lyskom-char-p): New implementation to fix spurious
+	protocol errors.
+
 1999-10-25  David Kagedal  <davidk@lysator.liu.se>
 
 	* option-edit.el (lyskom-custom-variables): Reversed logic for

src/parse.el

@@ -99,8 +99,9 @@ first non-white character was not equal to CHAR."
 
 (defun lyskom-char-p (char)
   "Check if next token is CHAR (a character)."
-  (string-match (format "\\`[ \t\n\r]*%c[ \t\n\r]" char) (lyskom-string-to-parse)))
-
+  (let* ((lyskom-parse-pos lyskom-parse-pos)
+         (c (lyskom-parse-char)))
+    (eq char c)))
 
 (defun lyskom-string-to-parse ()
   "Return unparsed data as a string."