Commit 524713fd authored by David Byers's avatar David Byers
Browse files

Possible fix for spurious protocol errors

parent 1095b978
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> 1999-10-25 David Kagedal <davidk@lysator.liu.se>
* option-edit.el (lyskom-custom-variables): Reversed logic for * option-edit.el (lyskom-custom-variables): Reversed logic for
......
...@@ -99,8 +99,9 @@ first non-white character was not equal to CHAR." ...@@ -99,8 +99,9 @@ first non-white character was not equal to CHAR."
(defun lyskom-char-p (char) (defun lyskom-char-p (char)
"Check if next token is CHAR (a character)." "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 () (defun lyskom-string-to-parse ()
"Return unparsed data as a string." "Return unparsed data as a string."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment