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
lyskom-elisp-client
lyskom-elisp-client
Commits
388c5e44
Commit
388c5e44
authored
May 08, 1996
by
David Kågedal
Browse files
Lite småändringar
parent
985f4bec
Changes
9
Hide whitespace changes
Inline
Side-by-side
doc/NEWS-0.42
View file @
388c5e44
...
...
@@ -9,6 +9,7 @@ Version 0.42 av elispklienten finns nu tillg
Filen heter lyskom-0.42.el.gz, och en kopia av den text du läser just
nu finns under namnet NEWS-0.42.
* Fitjurs och förbättringar
** Kommandot "Lista (med) regexpar" har återuppstått. Det finns bundet
...
...
@@ -26,7 +27,9 @@ nu finns under namnet NEWS-0.42.
snabbare i vissa fall.
** Den experimentella variabeln 'kom-delayed-printing' har bytt
namn. Den heter numera 'kom-deferred-printing'.
namn. Den heter numera 'kom-deferred-printing'. Dessutom har den
slutat vara experimentell och är påslagen per default. Sätt den
till nil om du vill ha det gamla (långsamma) beteendet tillbaka.
** Fler kommandon, till exempel vilkalistan, använder fördröjd
utskrift om man slår på det.
...
...
@@ -41,8 +44,30 @@ nu finns under namnet NEWS-0.42.
* Bugfixar
** Inga större buggar har fixats, men vi har säkert infört några nya,
skojiaga buggar.
** Klienten scrollar in ner till slutet på bufferten i tid och otid.
** Variabeln kom-text-properties respekteras bättre (om nu någon
skulle vilja sätta den till nil).
** Vi har säkert infört några nya, skojiaga buggar.
* Välkända buggar som inte behöver rapporteras igen (och igen (och igen))
** Man kan inte filtrera anonyma inlägg eller inlägga av personer som
inte längre existerar. Den här buggen har låg prioritet.
** Återse senaste och återse första kan ta väldigt lång tid om de
måste söka igenom många texter. Den kommer speciellt att ta lång
tid om man återser fler inlägg än en person har skrivit till ett
möte med många inlägg. Detta är egentligen inte en bug, men det är
lika bra att nämna det så ingen rapporterar det i onödan.
** Om man går ur ett möte medan man prioriterar möten kan man inte
spara den nya prioriteringen. Denna bug kommer nog att fixas på
något vis såsmåningom.
** Att försöka återse sina inlägg i någon annans brevlåda fungerar
inte så bra. Det tar lång tid och resultatet blir noll och intet.
Local variables:
mode: outline
...
...
src/ChangeLog
View file @
388c5e44
Wed May 8 01:10:11 1996 David Kgedal <davidk@lysator.liu.se>
* deferred-insert.el (lyskom-deferred-insert-conf): Gissa om det
r en person p ett bttre stt.
* lyskom-buttons.el (lyskom-default-button): Returnera nil om
kom-text-properties r nil.
* async.el (lyskom-show-logged-in-person): Respektera
kom-text-properties.
(lyskom-show-logged-out-person): Dito.
* lyskom-rest.el (lyskom-format-text-body): Dito.
* view-text.el (lyskom-view-text): Anvnd inte kom-first-line-face
om kom-text-properties r nil.
* vars.el.in (kom-deferred-printing): ndra default till t.
* deferred-insert.el (lyskom-replace-deferred): Var lite mer
defensiv i scrollningen. Dvs. scrolla aldrig.
Tue May 7 03:18:48 1996 David Kgedal <davidk@lysator.liu.se>
* lyskom-rest.el (lyskom-start-of-command): Hoppa till slutet p
bufferten om det syns i fnstret.
* commands1.el (kom-list-re): Stt knapp p raderna.
* commands1.el (kom-send-letter): Gr (recenter 1) istllet fr
...
...
src/async.el
View file @
388c5e44
...
...
@@ -207,7 +207,8 @@ this function shall be with current-buffer the BUFFER."
(
cond
(
kom-presence-messages-in-buffer
(
lyskom-format-insert-before-prompt
'has-entered-r
conf-stat
'
(
face
kom-presence-face
)))))
(
and
kom-text-properties
'
(
face
kom-presence-face
))))))
(
defun
lyskom-show-logged-out-person
(
conf-stat
session-no
)
...
...
@@ -219,7 +220,8 @@ this function shall be with current-buffer the BUFFER."
(
cond
(
kom-presence-messages-in-buffer
(
lyskom-format-insert-before-prompt
'has-left-r
conf-stat
'
(
face
kom-presence-face
)))))
(
and
kom-text-properties
'
(
face
kom-presence-face
))))))
(
defun
lyskom-show-changed-person
(
personconfstat
conf-num
doing
)
...
...
src/commands2.el
View file @
388c5e44
...
...
@@ -595,6 +595,7 @@ When a text is received the new text is displayed."
;; This is a bit trial-and-error stuff at the momemt.
;; o How to make personal messages appear *fast*
;; o How to enable C-g with a quick response
(
sit-for
0
)
(
accept-process-output
nil
1
)
(
sit-for
0
)
(
if
lyskom-quit-flag
...
...
src/deferred-insert.el
View file @
388c5e44
...
...
@@ -132,8 +132,23 @@ The insertion will be at (point)."
replacement-data
)
(
let
((
inhibit-read-only
t
))
(
delete-char
(
defer-info->del-chars
defer-info
)))
(
set-marker
(
defer-info->pos
defer-info
)
nil
)))
(
set-marker
(
defer-info->pos
defer-info
)
nil
))
(
if
lyskom-executing-command
nil
(
let
((
window
(
get-buffer-window
lyskom-buffer
)))
(
if
(
pos-visible-in-window-p
(
point-max
)
window
)
nil
;; This means that this insertion moved point out of the
;; window. The scrolling becomes tricky. One big problem is
;; that we can't use lyskom-last-viewed, because it has been
;; updated to the new prompt. Until that is solved we make
;; sure that we never scroll.
(
move-to-window-line
-1
)
(
vertical-motion
1
)
(
if
(
not
(
pos-visible-in-window-p
))
(
forward-char
-1
))
))))
(
defun
lyskom-deferred-insert-conf
(
conf-stat
defer-info
)
"Insert the name of a conference at a previously reserved place."
...
...
@@ -142,7 +157,9 @@ The insertion will be at (point)."
(
if
(
null
conf-stat
)
(
lyskom-format
(
or
(
defer-info->data
defer-info
)
(
if
(
conf-type->letterbox
(
conf-stat->conf-type
conf-stat
))
(
if
(
=
(
aref
(
defer-info->format
defer-info
)
(
1-
(
length
(
defer-info->format
defer-info
))))
?P
)
(
if
(
=
(
defer-info->call-par
defer-info
)
0
)
'person-is-anonymous
'person-does-not-exist
)
...
...
src/lyskom-buttons.el
View file @
388c5e44
...
...
@@ -331,38 +331,39 @@ FACE is the default text face for the button."
"Generate a button of type TYPE from data in ARG. ARG can be almost any
type of data and is converted to the proper argument type for buttons of
type TYPE before being send to lyskom-generate-button."
(
let
(
xarg
text
)
(
cond
((
eq
type
'conf
)
(
cond
((
lyskom-conf-stat-p
arg
)
(
if
(
conf-type->letterbox
(
conf-stat->conf-type
arg
))
(
setq
type
'pers
))
(
setq
xarg
(
conf-stat->conf-no
arg
)
text
(
conf-stat->name
arg
)))
((
numberp
arg
)
(
setq
text
""
xarg
arg
))
(
t
(
setq
text
""
xarg
0
))))
((
eq
type
'pers
)
(
cond
((
lyskom-conf-stat-p
arg
)
(
setq
xarg
(
conf-stat->conf-no
arg
)
text
(
conf-stat->name
arg
)))
((
lyskom-pers-stat-p
arg
)
(
setq
xarg
(
pers-stat->pers-no
arg
)
text
""
))
((
numberp
arg
)
(
setq
text
""
xarg
arg
))
(
t
(
setq
text
""
xarg
0
))))
((
eq
type
'text
)
(
cond
((
stringp
arg
)
(
setq
xarg
(
string-to-number
arg
)
text
arg
))
((
numberp
arg
)
(
setq
xarg
arg
text
(
number-to-string
arg
)))
((
lyskom-text-stat-p
arg
)
(
setq
xarg
(
text-stat->text-no
arg
)
text
(
number-to-string
(
text-stat->text-no
arg
))))
(
t
(
setq
xarg
0
text
""
))))
((
eq
type
'url
)
(
cond
((
stringp
arg
)
(
setq
xarg
nil
text
arg
))
(
t
(
setq
xarg
nil
text
""
))))
(
t
(
setq
xarg
arg
text
""
)))
(
lyskom-generate-button
type
xarg
text
nil
)))
(
and
kom-text-properties
(
let
(
xarg
text
)
(
cond
((
eq
type
'conf
)
(
cond
((
lyskom-conf-stat-p
arg
)
(
if
(
conf-type->letterbox
(
conf-stat->conf-type
arg
))
(
setq
type
'pers
))
(
setq
xarg
(
conf-stat->conf-no
arg
)
text
(
conf-stat->name
arg
)))
((
numberp
arg
)
(
setq
text
""
xarg
arg
))
(
t
(
setq
text
""
xarg
0
))))
((
eq
type
'pers
)
(
cond
((
lyskom-conf-stat-p
arg
)
(
setq
xarg
(
conf-stat->conf-no
arg
)
text
(
conf-stat->name
arg
)))
((
lyskom-pers-stat-p
arg
)
(
setq
xarg
(
pers-stat->pers-no
arg
)
text
""
))
((
numberp
arg
)
(
setq
text
""
xarg
arg
))
(
t
(
setq
text
""
xarg
0
))))
((
eq
type
'text
)
(
cond
((
stringp
arg
)
(
setq
xarg
(
string-to-number
arg
)
text
arg
))
((
numberp
arg
)
(
setq
xarg
arg
text
(
number-to-string
arg
)))
((
lyskom-text-stat-p
arg
)
(
setq
xarg
(
text-stat->text-no
arg
)
text
(
number-to-string
(
text-stat->text-no
arg
))))
(
t
(
setq
xarg
0
text
""
))))
((
eq
type
'url
)
(
cond
((
stringp
arg
)
(
setq
xarg
nil
text
arg
))
(
t
(
setq
xarg
nil
text
""
))))
(
t
(
setq
xarg
arg
text
""
)))
(
lyskom-generate-button
type
xarg
text
nil
))))
...
...
src/lyskom-rest.el
View file @
388c5e44
No preview for this file type
src/vars.el.in
View file @
388c5e44
...
...
@@ -149,8 +149,7 @@ position (generally the most recent prompt) will always be visible.
This variable is stored in the LysKOM server."
)
;; Should this be set to nil if baud-rate is low?
;; This is set to nil until we are sure that it works OK.
(
defvar
kom-deferred-printing
nil
(
defvar
kom-deferred-printing
t
"*Non-nil means delay printing of some information not in the cache.
You might want to turn this off to have the old, linear behaviour.
...
...
src/view-text.el
View file @
388c5e44
...
...
@@ -107,9 +107,11 @@ Note that this function must not be called asynchronously."
(
setq
end
(
point-max
))
(
if
(
and
(
null
filter
)
(
if
(
and
kom-text-properties
(
null
filter
)
(
not
(
lyskom-face-default-p
'kom-first-line-face
)))
(
add-text-properties
start
end
'
(
face
kom-first-line-face
)))
(
add-text-properties
start
end
'
(
face
kom-first-line-face
)))
;; All recipients and other header lines.
...
...
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