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
fa289249
Commit
fa289249
authored
Aug 11, 1993
by
Linus Tolke
Browse files
Bugfixes. Misspelled and quit.
parent
80ecceb3
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
fa289249
No preview for this file type
src/commands1.el
View file @
fa289249
...
...
@@ -729,7 +729,6 @@ The default subject is SUBJECT. TYPE is either 'comment or 'footnote."
(
lyskom-tell-internat
(
if
(
eq
type
'comment
)
'kom-tell-write-comment
'kom-tell-write-footnote
))
(
lyskom-collect
'edit
)
(
let
(
data
)
(
mapcar
(
function
...
...
@@ -744,8 +743,8 @@ The default subject is SUBJECT. TYPE is either 'comment or 'footnote."
(
eq
'CC-RECPT
(
misc-info->type
misc-info
)))
(
setq
ccrep
(
cons
(
misc-info->recipient-no
misc-info
)
ccrep
))
(
setq
data
(
cons
(
bloking-do
'get-conf-stat
(
misc-info->recipient-no
misc-info
))
(
setq
data
(
cons
(
blo
c
king-do
'get-conf-stat
(
misc-info->recipient-no
misc-info
))
data
))))))
(
text-stat->misc-info-list
text-stat
))
(
lyskom-comment-recipients
data
lyskom-proc
text-stat
...
...
src/commands2.el
View file @
fa289249
...
...
@@ -486,9 +486,13 @@ Args: MEMBERSHIP-LIST CONF-STAT."
"Send a message to one of the users in KOM right now."
(
interactive
)
(
lyskom-start-of-command
'kom-send-message
)
(
lyskom-send-message
(
lyskom-read-conf-no
(
lyskom-get-string
'who-to-send-message-to
)
'logins
t
)))
(
condition-case
error
(
lyskom-send-message
(
lyskom-read-conf-no
(
lyskom-get-string
'who-to-send-message-to
)
'logins
t
))
(
quit
(
lyskom-end-of-command
)
(
signal
'quit
"Quitting in kom-send-message"
))))
(
defun
kom-send-alarm
()
"Send a message to all of the users in KOM right now."
...
...
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