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
30fcc614
Commit
30fcc614
authored
Apr 15, 1992
by
inge
Browse files
Fixed the bug where lyskom-insert was used instead of insert in the
who-buffer.
parent
a74ddf39
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
30fcc614
Wed Apr 15 10:32:41 1992 Inge Wallin (inge@robert)
* cache.el(lyskom-set-who-info-buffer-2): Use insert instead of
lyskom-insert in the who-buffer. Send 'insert to the call to
lyskom-print-who-info.
* commands1.el(lyskom-print-who-info): Take new optional parameter
INSERT-FUNCTION telling which function to use for text insertion
into the buffer. Use lyskom-insert as default.
Tue Mar 24 03:03:41 1992 Lars Willf|r (willfor@lysator)
* lyskom-rest.el: Har lagt in s} att den s{tter lyskom-last-viewed
...
...
src/cache.el
View file @
30fcc614
...
...
@@ -277,7 +277,8 @@ ARG: session-info"
(
insert
" "
)
(
narrow-to-region
(
point-min
)
(
1-
(
point-max
))))
(
setq
min
(
point-max-marker
))
(
lyskom-print-who-info
pers-conf-stat
conf-conf-stat
who-info
sesno
)
(
lyskom-print-who-info
pers-conf-stat
conf-conf-stat
who-info
sesno
'insert
)
(
setq
max
(
point-max-marker
))
(
goto-char
(
point-max
)))
(
delete-char
1
))
...
...
src/commands1.el
View file @
30fcc614
...
...
@@ -1596,32 +1596,38 @@ args: TIME."
(
lyskom-run
'who-is-on
'lyskom-run
'main
'lyskom-end-of-command
))
(
defun
lyskom-print-who-info
(
conf-stat
working
who-info
my-session-no
)
"Print a line about a user. Args: CONF-STAT WORKING WHO-INFO MY-SESSION-NO.
(
defun
lyskom-print-who-info
(
conf-stat
working
who-info
my-session-no
&optional
insert-function
)
"Print a line about a user.
Args: CONF-STAT WORKING WHO-INFO MY-SESSION-NO &optional INSERT-FUNCTION.
CONF-STAT refer to the user.
WORKING is the conf-stat of his current working conference.
WHO-INFO is the who-info.
MY-SESSION-NO is the session number of the running session."
(
lyskom-insert
(
lyskom-return-who-info-line
(
format
"%4d%s"
(
who-info->connection
who-info
)
(
if
(
=
my-session-no
(
who-info->connection
who-info
))
"*"
" "
))
(
conf-stat->name
conf-stat
)
(
cond
((
conf-stat->name
working
))
(
t
(
lyskom-get-string
'not-present-anywhere
)))))
(
cond
(
kom-show-where-and-what
(
lyskom-insert
(
lyskom-return-who-info-line
" "
(
lyskom-return-username
who-info
)
(
concat
"("
(
who-info->doing-what
who-info
)
")"
))))))
MY-SESSION-NO is the session number of the running session.
&optional INSERT-FUNCTION is the function for inserting the text into
the buffer. If nil, use lyskom-insert."
(
let
((
insertfun
(
if
insert-function
insert-function
'lyskom-insert
)))
(
funcall
insertfun
(
lyskom-return-who-info-line
(
format
"%4d%s"
(
who-info->connection
who-info
)
(
if
(
=
my-session-no
(
who-info->connection
who-info
))
"*"
" "
))
(
conf-stat->name
conf-stat
)
(
cond
((
conf-stat->name
working
))
(
t
(
lyskom-get-string
'not-present-anywhere
)))))
(
if
kom-show-where-and-what
(
funcall
insertfun
(
lyskom-return-who-info-line
" "
(
lyskom-return-username
who-info
)
(
concat
"("
(
who-info->doing-what
who-info
)
")"
))))))
(
defun
lyskom-fix-str
(
len
str
)
...
...
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