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
6b8d0e51
Commit
6b8d0e51
authored
May 03, 1996
by
David Kågedal
Browse files
Skrev om koden för fördröjda utskrifter.
parent
580b95df
Changes
13
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
6b8d0e51
Sat May 4 00:07:06 1996 David Kgedal <davidk@lysator.liu.se>
* lyskom-rest.el (lyskom-format-aux-help): Inga knappar p mte
0.
* vars.el.in (lyskom-default-conf-string): Ny variabel.
* commands1.el (kom-who-is-on): Stt lyskom-default-conf-string
lokalt.
Fri May 3 10:13:12 1996 David Byers <davby@sen2.ida.liu.se>
* english-strings.el,swedish-strings.el (lyskom-prioritize-mode-map):
...
...
@@ -23,6 +33,54 @@ Fri May 3 10:13:12 1996 David Byers <davby@sen2.ida.liu.se>
lyskom-fetch-map-nos, kontrollera att man verkligen fr lsa
conf-mappen. (lyskom-check-review-access): Ny funktion.
Fri May 3 03:24:38 1996 David Kgedal <davidk@lysator.liu.se>
* view-text.el (lyskom-print-header-comm): Ny defer-hantering.
(lyskom-insert-deferred-header-comm): Ny funktion.
(lyskom-insert-header-comm): Detta r
lyskom-print-delayed-header-comm i ny skepnad.
* vars.el.in (kom-deferred-printing): Bytte namn frn
kom-delayed-printing.
* lyskom-rest.el (lyskom-format-insert): Ny defer-kod
(lyskom-format-insert-at-point): Dito.
(lyskom-format-aux-help): Dito.
* swedish-strings.el (lyskom-button-actions): Bytte -> .
* lyskom-rest.el (lyskom-delayed-print-conf): Tog bort.
* deferred-insert.el: Ny fil.
(lyskom-deferred-insert-conf): Ny funktion, eller snarare
lyskom-delayed-print-conf under nytt namn.
* lyskom-rest.el (lyskom-format-aux-help):
* commands2.el (lyskom-list-summary): Justerade formatering.
(lyskom-print-summary-line): Anvnd lyskom-format-insert.
* completing-read.el (lyskom-read-session-resolve-ambiguity):
Skrev om.
* lyskom-rest.el (lyskom-queue-print-name): Tog bort.
(lyskom-queue-print-name-2): Tog bort.
* swedish-strings.el (lyskom-commands): La till kommandot "Lista
klienter".
* english-strings.el (lyskom-commands): Dito.
* cache.el (lyskom-set-who-info-buffer-2): Kommenterade bort
innehllet..
(lyskom-set-session-info): Dito.
* commands1.el (lyskom-info-line-format-string): Ny funktion.
(kom-who-is-on): Skrev om med hjlp av den.
(lyskom-return-who-info-line): Tog bort.
(lyskom-fix-str): Tog bort.
(lyskom-return-who-info-line-as-state): Tog bort.
Thu May 2 18:47:18 1996 David Kgedal <davidk@lysator.liu.se>
* 0.41 release
...
...
src/Makefile
View file @
6b8d0e51
...
...
@@ -44,7 +44,7 @@ PARTS-EL = komtypes.el clienttypes.el utilities.el startup.el \
filter.el filter-edit.el lyskom-buttons.el
\
view-text.el async.el completing-read.el
\
prioritize.el flags.el messages.el ansaphone.el remote-control.el
\
elib-string.el
\
elib-string.el
deferred-insert.el
\
lyskom-rest.el
HEADER-EL
=
vars.el macros.el
HEADER-ELC
=
vars.elc macros.elc
...
...
src/TODO
View file @
6b8d0e51
...
...
@@ -38,6 +38,8 @@ Buggar
Allmänna förbättringar
Återinför "Lista (med) regexpar", eller vad den nu hette.
Inläggsnumren borde vara mer kontextkänsliga. Om man klickar på
ett inläggs eget nummer, alltså det som står precis innan datumet
och det som står inom parentesen precis efter inläggstexten, så
...
...
src/cache.el
View file @
6b8d0e51
...
...
@@ -287,52 +287,54 @@ ARG: session-info"
(
defun
lyskom-set-who-info-buffer-2
(
pers-conf-stat
conf-conf-stat
who-info
)
"Inserts a who-buffer-info into lyskom-who-info-cache"
;We can use lyskom-insert (not beautiful)
;we insert everything at the end of the buffer.
;defensive programming and it will work:
(
if
(
and
lyskom-who-info-buffer-is-on
lyskom-who-info-buffer
)
(
let
((
sesno
lyskom-session-no
)
min
max
(
where
(
cache-assoc
(
who-info->connection
who-info
)
lyskom-who-info-cache
)))
(
lyskom-save-excursion
(
set-buffer
lyskom-who-info-buffer
)
(
save-restriction
(
if
where
(
progn
(
narrow-to-region
(
marker-position
(
who-buffer-info->start-marker
where
))
(
1-
(
marker-position
(
who-buffer-info->end-marker
where
))))
(
delete-region
(
point-min
)
(
point-max
)))
(
goto-char
(
point-max
))
(
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
(
function
(
lambda
(
string
)
(
insert
string
))))
(
setq
max
(
point-max-marker
))
(
goto-char
(
point-max
)))
(
delete-char
1
))
(
cache-add
(
who-info->connection
who-info
)
(
lyskom-create-who-buffer-info
who-info
min
max
)
'lyskom-who-info-cache
)
(
run-hooks
'lyskom-who-info-has-changed-hook
))))
;; ;We can use lyskom-insert (not beautiful)
;; ;we insert everything at the end of the buffer.
;; ;defensive programming and it will work:
;; (if (and lyskom-who-info-buffer-is-on
;; lyskom-who-info-buffer)
;; (let ((sesno lyskom-session-no)
;; min max
;; (where (cache-assoc (who-info->connection who-info)
;; lyskom-who-info-cache)))
;; (lyskom-save-excursion
;; (set-buffer lyskom-who-info-buffer)
;; (save-restriction
;; (if where
;; (progn
;; (narrow-to-region (marker-position
;; (who-buffer-info->start-marker where))
;; (1- (marker-position
;; (who-buffer-info->end-marker where))))
;; (delete-region (point-min) (point-max)))
;; (goto-char (point-max))
;; (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
;; (function
;; (lambda (string)
;; (insert string))))
;; (setq max (point-max-marker))
;; (goto-char (point-max)))
;; (delete-char 1))
;; (cache-add (who-info->connection who-info)
;; (lyskom-create-who-buffer-info who-info min max)
;; 'lyskom-who-info-cache)
;; (run-hooks 'lyskom-who-info-has-changed-hook)))
)
(
defun
lyskom-set-session-info
(
pers-conf-stat
conf-conf-stat
session-info
)
"Inserts a session-info into lyskom-who-info-cache"
(
lyskom-set-who-info-buffer-2
pers-conf-stat
conf-conf-stat
(
lyskom-create-who-info
(
session-info->pers-no
session-info
)
(
session-info->working-conf
session-info
)
(
session-info->connection
session-info
)
(
session-info->doing
session-info
)
(
session-info->username
session-info
))))
;;; (lyskom-set-who-info-buffer-2 pers-conf-stat conf-conf-stat
;;; (lyskom-create-who-info
;;; (session-info->pers-no session-info)
;;; (session-info->working-conf session-info)
;;; (session-info->connection session-info)
;;; (session-info->doing session-info)
;;; (session-info->username session-info)))
)
;;; ================================================================
...
...
src/commands1.el
View file @
6b8d0e51
...
...
@@ -1455,37 +1455,93 @@ If MARK-NO == 0, review all marked texts."
;;; Vilka ({r inloggade) - Who is on?
;;; Author: ???
;;; Rewritten by: David K}gedal
(
def-kom-command
kom-who-is-on
()
"Display a list of all connected users."
(
interactive
)
(
let
((
who-info-list
(
blocking-do
'who-is-on
)))
(
lyskom-insert
(
lyskom-return-who-info-line
" "
(
lyskom-get-string
'lyskom-name
)
(
lyskom-get-string
'is-in-conf
)))
(
let
((
who-info-list
(
blocking-do
'who-is-on
))
(
format-string-1
(
lyskom-info-line-format-string
7
"P"
"M"
))
(
format-string-2
(
lyskom-info-line-format-string
7
"s"
"s"
))
(
lyskom-default-conf-string
'not-present-anywhere
))
(
lyskom-format-insert
format-string-2
" "
(
lyskom-get-string
'lyskom-name
)
(
lyskom-get-string
'is-in-conf
))
(
if
kom-show-where-and-what
(
lyskom-insert
(
lyskom-return-who-info-line
" "
(
lyskom-get-string
'from-machine
)
(
lyskom-get-string
'is-doing
))))
(
lyskom-format-insert
format-string-2
" "
(
lyskom-get-string
'from-machine
)
(
lyskom-get-string
'is-doing
)))
(
lyskom-insert
(
concat
(
make-string
(
-
(
lyskom-window-width
)
2
)
?-
)
"\n"
))
(
let*
((
who-list
(
sort
(
listify-vector
who-info-list
)
(
function
(
lambda
(
who1
who2
)
(
<
(
who-info->connection
who1
)
(
who-info->connection
who2
))))))
(
total-users
(
length
who-list
)))
(
while
who-list
(
let*
((
who-info
(
car
who-list
))
(
session-no
(
format
"%5d"
(
who-info->connection
who-info
)))
(
my-session
(
if
(
=
lyskom-session-no
(
who-info->connection
who-info
))
"*"
" "
)))
(
lyskom-format-insert
format-string-1
(
concat
session-no
my-session
)
(
who-info->pers-no
who-info
)
(
or
(
who-info->working-conf
who-info
)
(
lyskom-get-string
'not-present-anywhere
)))
(
if
kom-show-where-and-what
(
lyskom-format-insert
format-string-2
" "
(
lyskom-return-username
who-info
)
(
concat
"("
(
who-info->doing-what
who-info
)
")"
))))
(
setq
who-list
(
cdr
who-list
)))
(
lyskom-insert
(
concat
(
make-string
(
-
(
lyskom-window-width
)
2
)
?-
)
"\n"
))
(
lyskom-insert
(
lyskom-format
'total-users
total-users
)))))
(
def-kom-command
kom-list-clients
()
"Display a list of all connected users."
(
interactive
)
(
let
((
who-info-list
(
blocking-do
'who-is-on
))
(
format-string
(
lyskom-info-line-format-string
7
"P"
"s"
)))
(
lyskom-format-insert
format-string
" "
(
lyskom-get-string
'lyskom-name
)
(
lyskom-get-string
'lyskom-client
))
(
lyskom-insert
(
concat
(
make-string
(
-
(
lyskom-window-width
)
2
)
?-
)
"\n"
))
(
let*
((
who-list
(
sort
(
append
who-info-list
nil
)
(
let*
((
who-list
(
sort
(
listify-vector
who-info-list
)
(
function
(
lambda
(
who1
who2
)
(
<
(
who-info->connection
who1
)
(
who-info->connection
who2
))))))
(
total-users
(
length
who-list
)))
(
while
who-list
(
let
((
who-info
(
car
who-list
)))
(
lyskom-print-who-info
(
let*
((
who-info
(
car
who-list
))
(
session-no
(
format
"%5d"
(
who-info->connection
who-info
)))
(
my-session
(
if
(
=
lyskom-session-no
(
who-info->connection
who-info
))
"*"
" "
)))
(
lyskom-format-insert
format-string
(
concat
session-no
my-session
)
(
blocking-do
'get-conf-stat
(
who-info->pers-no
who-info
))
(
blocking-do
'get-conf-stat
(
who-info->working-conf
who-info
))
who-info
lyskom-session-no
))
(
blocking-do-multiple
((
name
(
get-client-name
(
who-info->connection
who-info
)))
(
version
(
get-client-version
(
who-info->connection
who-info
))))
(
concat
name
" "
version
))))
(
setq
who-list
(
cdr
who-list
)))
(
lyskom-insert
(
concat
(
make-string
(
-
(
lyskom-window-width
)
2
)
?-
)
...
...
@@ -1493,89 +1549,20 @@ If MARK-NO == 0, review all marked texts."
(
lyskom-insert
(
lyskom-format
'total-users
total-users
)))))
(
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.
&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-as-state
(
format
"%5d%s"
(
who-info->connection
who-info
)
(
if
(
=
my-session-no
(
who-info->connection
who-info
))
"*"
" "
))
conf-stat
(
cond
((
conf-stat->name
working
)
working
)
(
t
(
lyskom-get-string
'not-present-anywhere
)))))
(
if
kom-show-where-and-what
(
funcall
insertfun
(
lyskom-return-who-info-line-as-state
" "
(
lyskom-return-username
who-info
)
(
concat
"("
(
who-info->doing-what
who-info
)
")"
))))))
(
defun
lyskom-fix-str
(
len
str
)
"Pad STR with space to LEN. Args: LEN STR."
(
while
(
<
(
length
str
)
len
)
(
setq
str
(
concat
str
" "
)))
(
substring
str
0
len
))
(
defun
lyskom-return-who-info-line-as-state
(
prefix
arg1
arg2
)
"Return the format state appropriate for the arguments and
the window width."
(
let*
((
adj1
(
+
(
length
prefix
)
2
))
(
adj2
(
+
adj1
1
))
(
formatstring
(
concat
prefix
"%=-"
(
int-to-string
(
/
(
*
37
(
-
(
lyskom-window-width
)
adj1
))
73
))
(
if
(
lyskom-conf-stat-p
arg1
)
(
if
(
conf-type->letterbox
(
conf-stat->conf-type
arg1
))
"#1P"
"#1M"
)
"#1s"
)
" %=-"
(
int-to-string
(
/
(
*
37
(
-
(
lyskom-window-width
)
adj2
))
73
))
(
if
(
lyskom-conf-stat-p
arg2
)
(
if
(
conf-type->letterbox
(
conf-stat->conf-type
arg2
))
"#2P"
"#2M"
)
"#2s"
)
"\n"
)))
(
lyskom-format
formatstring
arg1
arg2
)))
(
defun
lyskom-return-who-info-line
(
prefix
string1
string2
)
"Return a formatted line (with reference to the current window width."
(
let
((
line
(
concat
prefix
(
lyskom-fix-str
(
/
(
*
37
(
-
(
lyskom-window-width
)
7
))
73
)
string1
)
" "
(
lyskom-fix-str
(
/
(
*
36
(
-
(
lyskom-window-width
)
7
))
73
)
string2
))))
(
while
(
string=
(
substring
line
-1
)
" "
)
(
setq
line
(
substring
line
0
-1
)))
(
concat
line
"\n"
)))
(
defun
lyskom-info-line-format-string
(
prefixlen
type1
type2
)
"Return a format string suitable for inserting who-info lines etc."
(
let*
((
plen
(
or
prefixlen
7
))
(
adj1
(
+
plen
2
))
(
adj2
(
+
adj1
1
)))
(
concat
"%"
(
int-to-string
plen
)
"#1s"
"%=-"
(
int-to-string
(
/
(
*
37
(
-
(
lyskom-window-width
)
adj1
))
73
))
"#2"
type1
" %=-"
(
int-to-string
(
/
(
*
37
(
-
(
lyskom-window-width
)
adj2
))
73
))
"#3"
type2
"\n"
)))
(
defun
lyskom-window-width
()
"Returns the width of the lyskom-window or the screen-width if not displayed."
...
...
src/commands2.el
View file @
6b8d0e51
...
...
@@ -719,26 +719,27 @@ on one line."
"List a summary of the texts in TEXTS.
The summary contains the date, number of lines, author and subject of the text
on one line."
(
let
((
time
(
blocking-do
'get-time
)))
;; Start fetching all text-stats and text to list them.
(
lyskom-insert
(
format
"%-8s%-6s%5s%s%s\n"
(
lyskom-get-string
'Texts
)
(
lyskom-get-string
'Date
)
(
lyskom-get-string
'Lines
)
(
lyskom-fix-str
(
/
(
-
(
lyskom-window-width
)
21
)
3
)
(
lyskom-get-string
'Author
))
(
lyskom-get-string
'Subject
)))
(
lyskom-traverse
text-no
texts
(
let
((
text-stat
(
blocking-do
'get-text-stat
text-no
))
(
text
(
blocking-do
'get-text
text-no
))
;; We could do som optimization here.
;; We really don't need the whole text.
)
(
lyskom-print-summary-line
text-stat
text
text-no
(
time->year
time
)
(
time->yday
time
))))))
(
let
((
time
(
blocking-do
'get-time
))
(
author-width
(
/
(
-
(
lyskom-window-width
)
22
)
3
)))
;; Start fetching all text-stats and text to list them.
(
lyskom-format-insert
(
concat
"%-8#1s%-6#2s%-4#3s %-"
(
int-to-string
author-width
)
"#4s %#5s\n"
)
(
lyskom-get-string
'Texts
)
(
lyskom-get-string
'Date
)
(
lyskom-get-string
'Lines
)
(
lyskom-get-string
'Author
)
(
lyskom-get-string
'Subject
))
(
lyskom-traverse
text-no
texts
(
let
((
text-stat
(
blocking-do
'get-text-stat
text-no
))
(
text
(
blocking-do
'get-text
text-no
))
;; We could do som optimization here.
;; We really don't need the whole text.
)
(
lyskom-print-summary-line
text-stat
text
text-no
(
time->year
time
)
(
time->yday
time
))))))
(
defun
lyskom-print-summary-line
(
text-stat
text
text-no
year
day
)
...
...
@@ -765,33 +766,20 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
;; We split the rest between author and subject
(
namelen
(
/
(
-
(
lyskom-window-width
)
22
)
3
))
(
subjlen
(
/
(
*
(
-
(
lyskom-window-width
)
22
)
2
)
3
))
(
author-name
(
lyskom-format
"%#1:P"
(
text-stat->author
text-stat
))))
(
lyskom-format-insert
'summary-line
(
author-name
(
lyskom-format
"%#1:P"
(
text-stat->author
text-stat
)))
(
format-string
(
concat
"%=-8#1n%#2s%4#3d %=-"
(
int-to-string
namelen
)
"#4P %[%#5@%=-"
(
int-to-string
subjlen
)
"#6r%]\n"
)))
(
lyskom-format-insert
format-string
text-no
time
lines
(
lyskom-default-button
'conf
(
text-stat->author
text-stat
))
(
lyskom-fix-str
namelen
author-name
)
(
text-stat->author
text-stat
)
(
lyskom-default-button
'text
text-no
)
(
lyskom-fix-str
subjlen
subject
))
;;; (lyskom-insert (lyskom-fix-str 7 (format "%d" text-no)))
;;; (lyskom-insert time)
;;; (lyskom-insert (format "%4d " lines))
;;; (lyskom-halt 'main)
;;; ;;; +++ Should be a function that only takes number
;;; (lyskom-queue-print-name-2
;;; (blocking-do 'get-conf-stat (text-stat->author text-stat))
;;; (text-stat->author text-stat)
;;; t namelen)
;;;
;;; (lyskom-insert (concat " "
;;; (lyskom-fix-str subjlen subject)
;;; "\n"))
)))
subject
))))
...
...
src/completing-read.el
View file @
6b8d0e51
...
...
@@ -462,64 +462,66 @@ If ONLY-ONE is non-nil only one session number will be returned."
(
defun
lyskom-read-session-resolve-ambiguity
(
sessions
)
(
lyskom-insert
"\n"
)
(
lyskom-insert
(
lyskom-return-who-info-line
" "
(
lyskom-get-string
'lyskom-name
)
(
lyskom-get-string
'is-in-conf
)))
(
lyskom-insert
(
lyskom-return-who-info-line
" "
(
lyskom-get-string
'from-machine
)
(
lyskom-get-string
'is-doing
)))
(
lyskom-insert
(
concat
(
make-string
(
-
(
lyskom-window-width
)
2
)
?-
)
"\n"
))
(
let
((
result
nil
)
(
who-info
(
mapcar
(
function
(
lambda
(
el
)
(
let*
((
info
(
blocking-do
'get-session-info
el
))
(
persconfstat
(
blocking-do
'get-conf-stat
(
session-info->pers-no
info
)))
(
confconfstat
(
blocking-do
'get-conf-stat
(
session-info->working-conf
info
))))
(
lyskom-insert
(
lyskom-return-who-info-line-as-state
(
format
"%4d%s"
(
session-info->connection
info
)
(
if
(
eq
(
session-info->connection
info
)
lyskom-session-no
)
"*"
" "
))
(
blocking-do
'get-conf-stat
(
session-info->pers-no
info
))
(
if
(
conf-stat->name
confconfstat
)
confconfstat
(
lyskom-get-string
'not-present-anywhere
))))
(
lyskom-insert
(
lyskom-return-who-info-line-as-state
" "
(
lyskom-return-username
info
)
(
concat
"("
(
session-info->doing
info
)
")"
)))
(
cons
(
number-to-string
(
session-info->connection
info
))
info
))))
(
sort
sessions
'<
))))
(
lyskom-insert
(
concat
(
make-string
(
-
(
lyskom-window-width
)
2
)
?-
)
"\n"
))
(
lyskom-insert
(
lyskom-format
'total-users
(
length
who-info
)))
(
lyskom-scroll
)
(
while
(
string=
""
(
setq
result
(
completing-read
(
lyskom-get-string
'resolve-session
)
who-info
nil
t
(
car
(
car
who-info
))
nil
))))
(
list
(
session-info->connection
(
cdr
(
assoc
result
who-info
))))))
(
let
((
format-string-s
(
lyskom-info-line-format-string
7
"s"
"s"
))
(
format-string-p
(
lyskom-info-line-format-string
7
"P"
"M"
)))
(
lyskom-format-insert
format-string-s
" "
(
lyskom-get-string
'lyskom-name
)
(
lyskom-get-string
'is-in-conf
))
(
lyskom-format-insert
format-string-s
" "
(
lyskom-get-string
'from-machine
)
(
lyskom-get-string
'is-doing
))
(
lyskom-insert
(
concat
(
make-string
(
-
(
lyskom-window-width
)
2
)
?-
)
"\n"
))
(
let
((
result
nil
)
(
who-info
(
mapcar
(
function
(
lambda
(
el
)
(
let*
((
info
(
blocking-do
'get-session-info
el
))
(
persconfstat
(
blocking-do
'get-conf-stat
(
session-info->pers-no
info
)))
(
confconfstat
(
blocking-do
'get-conf-stat
(
session-info->working-conf
info
))))
(
lyskom-format-insert
format-string-p
(
format
"%4d%s"
(
session-info->connection
info
)
(
if
(
eq
(
session-info->connection
info
)
lyskom-session-no
)
"*"
" "
))
(
blocking-do
'get-conf-stat
(
session-info->pers-no
info
))
(
if
(
conf-stat->name
confconfstat
)
confconfstat
(
lyskom-get-string
'not-present-anywhere
)))
(
lyskom-format-insert
format-string-p
" "
(
lyskom-return-username
info
)
(
concat
"("
(
session-info->doing
info
)
")"
))
(
cons
(
number-to-string
(
session-info->connection
info
))
info
))))
(
sort
sessions
'<
))))
(
lyskom-insert
(
concat
(
make-string
(
-
(
lyskom-window-width
)
2
)
?-
)
"\n"
))
(
lyskom-insert
(
lyskom-format
'total-users
(
length
who-info
)))
(
lyskom-scroll
)
(
while
(
string=
""
(
setq
result
(
completing-read
(
lyskom-get-string
'resolve-session
)
who-info
nil
t
(
car
(
car
who-info
))
nil
))))
(
list
(
session-info->connection
(
cdr
(
assoc
result
who-info
)))))))
...
...
src/deferred-insert.el
0 → 100644
View file @
6b8d0e51
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1996 Lysator Academic Computer Association.
;;;;;
;;;;; This file is part of the LysKOM server.
;;;;;
;;;;; LysKOM is free software; you can redistribute it and/or modify it
;;;;; under the terms of the GNU General Public License as published by