Skip to content
GitLab
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
861ddb33
Commit
861ddb33
authored
Jun 24, 2007
by
David Byers
Browse files
Fixed bug 1608
parent
933e1c35
Changes
4
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
861ddb33
2007-06-24 <David Byers@GULAG>
Fixed bug 1608:
* async.el (lyskom-show-logged-in-person): Applied modified patch
from Per Jonsson (unlike the original patch, still print the
server name).
Fix bug 1620:
* commands2.el (lyskom-send-message): Appli
cerad
e patch fr
n
Per
* commands2.el (lyskom-send-message): Applie
d
patch fr
om
Per
Jonsson.
2007-06-13 <David Byers@GULAG>
...
...
src/async.el
View file @
861ddb33
...
...
@@ -403,7 +403,11 @@ according to the value of FLAG."
(
defun
lyskom-show-logged-in-person
(
conf-stat
)
"Visa p} kommandoraden vem som loggat in."
(
let
((
server
(
lyskom-session-nickname
)))
(
let
((
server
(
lyskom-session-nickname
))
(
login-when-date
(
let
((
kom-print-relative-dates
nil
))
(
lyskom-format-time
'date
)))
(
login-when-time
(
let
((
kom-print-relative-dates
nil
))
(
lyskom-format-time
'time
))))
(
cond
((
lyskom-is-in-minibuffer
))
((
lyskom-show-presence
(
conf-stat->conf-no
conf-stat
)
...
...
@@ -419,21 +423,24 @@ according to the value of FLAG."
(
cond
((
lyskom-show-presence
(
conf-stat->conf-no
conf-stat
)
kom-presence-messages-in-buffer
)
(
if
conf-stat
(
lyskom-format-insert-before-prompt
'has-entered-r
conf-stat
(
and
kom-text-properties
`
(
face
,
kom-presence-face
))
server
)
(
lyskom-format-insert-before-prompt
'has-entered-r
(
lyskom-get-string
'unknown-person
)
(
and
kom-text-properties
`
(
face
,
kom-presence-face
))
server
))))))
(
lyskom-format-insert-before-prompt
'has-entered-r
(
or
conf-stat
(
lyskom-get-string
'unknown-person
))
(
and
kom-text-properties
(
list
'face
kom-presence-face
))
server
login-when-date
login-when-time
)))))
(
defun
lyskom-show-logged-out-person
(
conf-stat
session-no
)
"Visa p} kommandoraden vem som loggat ut."
(
let
((
server
(
lyskom-session-nickname
)))
(
let
((
server
(
lyskom-session-nickname
))
(
logout-when-date
(
let
((
kom-print-relative-dates
nil
))
(
lyskom-format-time
'date
)))
(
logout-when-time
(
let
((
kom-print-relative-dates
nil
))
(
lyskom-format-time
'time
))))
(
cond
((
lyskom-is-in-minibuffer
))
((
lyskom-show-presence
(
conf-stat->conf-no
conf-stat
)
...
...
@@ -446,16 +453,15 @@ according to the value of FLAG."
(
cond
((
lyskom-show-presence
(
conf-stat->conf-no
conf-stat
)
kom-presence-messages-in-buffer
)
(
if
conf-stat
(
lyskom-format-insert-before-prompt
'has-left-r
conf-stat
(
and
kom-text-properties
`
(
face
,
kom-presence-face
))
server
)
(
lyskom-format-insert-before-prompt
'has-left-r
(
lyskom-get-string
'unknown-person
)
(
and
kom-text-properties
`
(
face
,
kom-presence-face
))
server
))))))
(
lyskom-format-insert-before-prompt
'has-left-r
(
or
conf-stat
(
lyskom-get-string
'unknown-person
))
(
and
kom-text-properties
(
list
'face
kom-presence-face
))
server
logout-when-date
logout-when-time
)))))
...
...
src/english-strings.el
View file @
861ddb33
...
...
@@ -1091,9 +1091,9 @@ for a text.
===============================================================================
")
(has-entered . "
%#1:P
has
entered
%#2s.
")
(has-entered-r . "
%#2@%#1P
has
entered
%#3s.\n
")
(has-entered-r . "
%#2@%#1P
has
entered
%#3s
(
%#4s
%#5s
)
.
\n
")
(has-left . "
%#1:P
has
left
%#2s.
")
(has-left-r . "
%#2@%#1P
has
left
%#3s.\n
")
(has-left-r . "
%#2@%#1P
has
left
%#3s
(
%#4s
%#5s
)
.
\n
")
(Unknown . "
Unknown
")
(unknown . "
unknown
")
(Unknown2 . "
Unknown
")
...
...
@@ -1303,7 +1303,7 @@ You should set it to a better value.\n")
%#2s
LysKOM
session
killed
abnormally
Error
message:
%#1s**************************************************
")
(closed-connection-other-buf . "
(closed-connection-other-buf . "
\
**************************************************
The
LysKOM
session
%#1s
was
killed
abnormally.
**************************************************
...
...
src/swedish-strings.el
View file @
861ddb33
...
...
@@ -1134,9 +1134,9 @@ upptagna. Logga ut och kom tillbaks senare om du v
===============================================================================
")
(has-entered . "
Nu
har
%#1:P
gtt
in
i
%#2s.
")
(has-entered-r . "
%#2@Nu
har
%#1P
gtt
in
i
%#3s.\n
")
(has-entered-r . "
%#2@Nu
har
%#1P
gtt
in
i
%#3s
(
%#4s
%#5s
)
.
\n
")
(has-left . "
Nu
har
%#1:P
gtt
ur
%#2s.
")
(has-left-r . "
%#2@Nu
har
%#1P
gtt
ur
%#3s.\n
")
(has-left-r . "
%#2@Nu
har
%#1P
gtt
ur
%#3s
(
%#4s
%#5s
)
.
\n
")
(Unknown . "
Oknd
")
(unknown . "
oknd
")
(Unknown2 . "
Oknt
")
...
...
@@ -1349,7 +1349,7 @@ Du b
%#2s
LysKOM-sessionen
onormalt
stngd.
Felmeddelande:
%#1s**************************************************
")
(closed-connection-other-buf . "
(closed-connection-other-buf . "
\
**************************************************
LysKOM-sessionen
%#1s
stngdes
onormalt.
**************************************************
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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