Commit 48f3c345 authored by David Kågedal's avatar David Kågedal

Fixade buggen som gjorde att den hängde på inlägg med långa rader.

parent 39a9da2b
......@@ -8,6 +8,9 @@ ett par nya finesser.
* Fitjurs och förbättringar
** Allting går fortare, på grund av lite intelligentare
parser. Inloggningsfasen går t.ex. ungefär tre gånger så fort.
** Innehållet i bufferten scrollas mer kontinuerligt allteftersom
utmatning kommer. Tidigare scrollade den bara när man fick en
prompt. Med det nyare beteendet är det lättare att se att något
......
Sun Apr 28 04:01:34 1996 David Kgedal <davidk@lysator.liu.se>
* parse.el (lyskom-parse-unparsed): Flyttade terstartning av
strngar...
* lyskom-rest.el (lyskom-filter): ...hit
Sat Apr 27 02:48:51 1996 David Kgedal <davidk@lysator.liu.se>
* commands1.el (kom-send-letter): Ta bort confstatet ur cachen.
......
......@@ -4,7 +4,7 @@ Att g
Buggar
Om ett namn som fylls i i efterhand gör att raden blir för lång,
så scrollar klienten fel ibland.
så scrollar inte klienten trots att den ibland borde.
åm -> lä -> åh --- Sen får man läsa markerade iaf. (FIXAT?)
......
No preview for this file type
......@@ -819,31 +819,27 @@ functions and variables that are connected with the lyskom-buffer."
(message ""))))
(lyskom-save-excursion
(set-buffer lyskom-unparsed-buffer)
(if (and (> lyskom-string-bytes-missing 0)
(< (length output) lyskom-string-bytes-missing))
(setq lyskom-string-bytes-missing
(- lyskom-string-bytes-missing (length output)))
(setq lyskom-string-bytes-missing 0)
(while (not (zerop (1- (point-max)))) ;Parse while replies.
(let* ((lyskom-parse-pos 1)
(key (lyskom-parse-nonwhite-char)))
(condition-case err
(let ((inhibit-quit nil))
(cond
((eq key ?=) ;The call succeeded.
(lyskom-parse-success (lyskom-parse-num) lyskom-buffer))
((eq key ?%) ;The call was not successful.
(lyskom-parse-error (lyskom-parse-num) lyskom-buffer))
((eq key ?:) ;An asynchronous message.
(lyskom-parse-async (lyskom-parse-num) lyskom-buffer)))
(delete-region (point-min) lyskom-parse-pos))
;; One reply is now parsed.
(lyskom-protocol-error
(delete-region (point-min) (1+ lyskom-parse-pos))
(signal 'lyskom-protocol-error err)))
(goto-char (point-min))
(while (looking-at "[ \t\n\r]")
(delete-char 1))
))))
(setq lyskom-string-bytes-missing 0)
(while (not (zerop (1- (point-max)))) ;Parse while replies.
(let* ((lyskom-parse-pos 1)
(key (lyskom-parse-nonwhite-char)))
(condition-case err
(let ((inhibit-quit nil))
(cond
((eq key ?=) ;The call succeeded.
(lyskom-parse-success (lyskom-parse-num) lyskom-buffer))
((eq key ?%) ;The call was not successful.
(lyskom-parse-error (lyskom-parse-num) lyskom-buffer))
((eq key ?:) ;An asynchronous message.
(lyskom-parse-async (lyskom-parse-num) lyskom-buffer)))
(delete-region (point-min) lyskom-parse-pos))
;; One reply is now parsed.
(lyskom-protocol-error
(delete-region (point-min) (1+ lyskom-parse-pos))
(signal 'lyskom-protocol-error err)))
(goto-char (point-min))
(while (looking-at "[ \t\n\r]")
(delete-char 1))
)))
(store-match-data match-data)))
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