Commit 9e881545 authored by Christer Ekholm's avatar Christer Ekholm

Fixed kom-list-clients to match the doc-string.

Handle prefix-argument the way the doc-string says.
parent 07a26a30
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
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment