Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Peter Liljenberg
lyskom-elisp-client
Commits
9e881545
Commit
9e881545
authored
Jul 02, 2014
by
Christer Ekholm
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fixed kom-list-clients to match the doc-string.
Handle prefix-argument the way the doc-string says.
parent
07a26a30
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
17 additions
and
6 deletions
+17
-6
src/ChangeLog
src/ChangeLog
+5
-0
src/commands1.el
src/commands1.el
+12
-6
No files found.
src/ChangeLog
View file @
9e881545
2014-07-02 Christer Ekholm <che@chrekh.se>
* commands1.el (kom-list-clients): Fixed the handling of prefix
argument to match the doc-string.
2014-06-26 Christer Ekholm <che@chrekh.se>
* buffers.el (lyskom-remove-buffer-from-lists): Use
...
...
src/commands1.el
View file @
9e881545
...
...
@@ -3037,8 +3037,9 @@ nonzero prefix argument ARG, list both visible and invisible sessions
who have been active in the last -ARG minutes. With a negative zero
prefix argument \(C-u -), list all sessions."
(
interactive
"P"
)
(
let*
((
want-invisible
(
if
prefix
t
nil
))
(
who-info-list
(
blocking-do
'who-is-on-dynamic
t
want-invisible
nil
))
(
let*
((
want-invisible
(
or
(
eq
'-
prefix
)
(
and
(
numberp
prefix
)
(
<
prefix
0
))))
(
who-info-list
(
blocking-do
'who-is-on-dynamic
t
want-invisible
(
if
(
numberp
prefix
)
(
*
(
abs
prefix
)
60
)
nil
)))
(
who-list
(
sort
(
listify-vector
who-info-list
)
(
function
(
lambda
(
who1
who2
)
...
...
@@ -3090,10 +3091,15 @@ prefix argument \(C-u -), list all sessions."
(
lyskom-insert
(
concat
(
make-string
(
-
(
lyskom-window-width
)
2
)
?-
)
"\n"
))
(
lyskom-insert
(
lyskom-format
(
if
want-invisible
'total-users
'total-visible-users
)
total-users
(
lyskom-format-time
'timeformat-day-yyyy-mm-dd-hh-mm-ss
)))
(
if
(
numberp
prefix
)
'total-active-users
'total-users
)
(
if
(
numberp
prefix
)
'total-visible-active-users
'total-visible-users
))
total-users
(
lyskom-format-time
'timeformat-day-yyyy-mm-dd-hh-mm-ss
)))
(
lyskom-format-insert
"%#1D\n"
(
lyskom-create-defer-info
'get-time
nil
...
...
Write
Preview
Markdown
is supported
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