Commit ee3f3258 authored by David Byers's avatar David Byers
Browse files

Fixed bug in the previous fix to the protocol error error

parent 524713fd
......@@ -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>
......
......@@ -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))
......
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