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

Handle prefix-argument the way the doc-string says.

src/ChangeLog

+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

@@ -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