Fixed bug in the previous fix to the protocol error error

src/ChangeLog

@@ -2,6 +2,7 @@
 
 	* parse.el (lyskom-char-p): New implementation to fix spurious
 	protocol errors.
+	(lyskom-char-p): Fixed new implementation.
 
 1999-10-25  David Kagedal  <davidk@lysator.liu.se>
 

src/parse.el

@@ -100,7 +100,7 @@ first non-white character was not equal to CHAR."
 (defun lyskom-char-p (char)
   "Check if next token is CHAR (a character)."
   (let* ((lyskom-parse-pos lyskom-parse-pos)
-         (c (lyskom-parse-char)))
+         (c (lyskom-parse-nonwhite-char)))
     (eq char c)))
 
 (defun lyskom-string-to-parse ()
@@ -1153,7 +1153,7 @@ functions and variables that are connected with the lyskom-buffer."
                                           (let* ((buffer (generate-new-buffer " *Backtrace*"))
                                                  (standard-output buffer))
                                             (backtrace)
-                                            (prog1 (buffer-string buffer)
+                                            (prog1 (buffer-string nil nil buffer)
                                               (kill-buffer buffer)))
                                           (lyskom-string-to-parse))
                                     lyskom-backtrace-list))