Bugfixes on last checkin

src/ChangeLog

+2001-07-11  Christer Ekholm  <che@init.se>
+
+	* swedish-strings.el, swedish-strings.el (lyskom-message): New
+	string names for kom-who-is-present-in-conference
+
+	* commands1.el (kom-who-is-present-in-conference): Bugfix and new
+	string names.
+
+	
 2001-07-11  David Byers  <davby@ida.liu.se>
 
 	* swedish-strings.el (lyskom-help-strings): Added strings for

src/commands1.el

@@ -2734,7 +2734,7 @@ prefix is negative, invisible sessions are also shown.
 If the prefix is 0, all visible sessions are shown."
   (interactive "P")
   (let ((conf-stat 
-	 (lyskom-read-conf-stat (lyskom-get-string 'who-is-active-in-what-conference)
+	 (lyskom-read-conf-stat (lyskom-get-string 'who-is-present-in-what-conference)
 			      '(all) nil nil t)))
     (condition-case nil
 	(if (lyskom-have-feature dynamic-session-info)
@@ -2752,10 +2752,10 @@ Uses Protocol A version 8 calls"
 			       (conf-stat
 				(lyskom-who-is-on-check-membership-8 who-info-list conf-stat))
 			       (t
-				(listify-vector who-info-list))
-			       (function (lambda (who1 who2)
-					   (< (who-info->connection who1)
-					      (who-info->connection who2)))))))
+				(listify-vector who-info-list)))
+			 (function (lambda (who1 who2)
+				     (< (who-info->connection who1)
+					(who-info->connection who2))))))
 	 (total-users (length who-list))
 	 (session-width (1+ (length (int-to-string
 				     (who-info->connection

src/english-strings.el

@@ -525,7 +525,7 @@ Read all about it at http://www.lysator.liu.se/history/")
     (no-unread-lyskom . "There is no active LysKOM session with unread texts.")
 
     (who-is-on-in-what-conference . "Who in which conference: ")
-    (who-is-active-in-what-conference . "Who present in which conference: ")
+    (who-is-present-in-what-conference . "Who present in which conference: ")
     (who-is-active-and-member . "Only members in %#1M are shown.\n")
     (who-is-active-and-present . "Only members present in %#1M are shown.\n")
 

src/swedish-strings.el

@@ -514,7 +514,7 @@ i svensk datorhistoria. L
     (no-unread-lyskom . "Hittar ingen aktiv LysKOM-session med olsta.")
 
     (who-is-on-in-what-conference . "Vilka i vilket mte: ")
-    (who-is-active-in-what-conference . "Vilka nrvarande i vilket mte: ")
+    (who-is-present-in-what-conference . "Vilka nrvarande i vilket mte: ")
     (who-is-active-and-member . "Visar endast medlemmar i %#1M.\n")
     (who-is-active-and-present . "Visar endast medlemmar nrvarande i %#1M.\n")