Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Peter Liljenberg
lyskom-elisp-client
Commits
48f3c345
Commit
48f3c345
authored
Apr 28, 1996
by
David Kågedal
Browse files
Fixade buggen som gjorde att den hängde på inlägg med långa rader.
parent
39a9da2b
Changes
5
Hide whitespace changes
Inline
Side-by-side
doc/NEWS-0.41
View file @
48f3c345
...
...
@@ -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
...
...
src/ChangeLog
View file @
48f3c345
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.
...
...
src/TODO
View file @
48f3c345
...
...
@@ -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?)
...
...
src/lyskom-rest.el
View file @
48f3c345
No preview for this file type
src/parse.el
View file @
48f3c345
...
...
@@ -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
)))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment