Fixed the bug where lyskom-insert was used instead of insert in the

who-buffer.

src/ChangeLog

+Wed Apr 15 10:32:41 1992  Inge Wallin  (inge@robert)
+
+	* cache.el(lyskom-set-who-info-buffer-2): Use insert instead of
+	  lyskom-insert in the who-buffer.  Send 'insert to the call to
+	  lyskom-print-who-info. 
+
+	* commands1.el(lyskom-print-who-info): Take new optional parameter
+	  INSERT-FUNCTION telling which function to use for text insertion
+	  into the buffer.  Use lyskom-insert as default.
+
 Tue Mar 24 03:03:41 1992  Lars Willf|r  (willfor@lysator)
 
 	* lyskom-rest.el: Har lagt in s} att den s{tter lyskom-last-viewed

src/cache.el

@@ -277,7 +277,8 @@ ARG: session-info"
 	 (insert " ")
 	 (narrow-to-region (point-min) (1- (point-max))))
        (setq min (point-max-marker))
-       (lyskom-print-who-info pers-conf-stat conf-conf-stat who-info sesno)
+       (lyskom-print-who-info pers-conf-stat conf-conf-stat who-info sesno
+			      'insert)
        (setq max (point-max-marker))
        (goto-char (point-max)))
      (delete-char 1))

src/commands1.el

@@ -1596,32 +1596,38 @@ args: TIME."
   (lyskom-run 'who-is-on 'lyskom-run 'main 'lyskom-end-of-command))
 
 
-(defun lyskom-print-who-info (conf-stat working who-info my-session-no)
-  "Print a line about a user. Args: CONF-STAT WORKING WHO-INFO MY-SESSION-NO.
+(defun lyskom-print-who-info (conf-stat working who-info my-session-no 
+					&optional insert-function)
+  "Print a line about a user. 
+Args: CONF-STAT WORKING WHO-INFO MY-SESSION-NO &optional INSERT-FUNCTION.
 CONF-STAT refer to the user.
 WORKING is the conf-stat of his current working conference.
 WHO-INFO is the who-info.
-MY-SESSION-NO is the session number of the running session."
-  (lyskom-insert
-   (lyskom-return-who-info-line (format "%4d%s" 
-					(who-info->connection who-info)
-					(if (= my-session-no
-					       (who-info->connection who-info))
-					    "*"
-					  " "))
-				(conf-stat->name conf-stat)
-				(cond
-				 ((conf-stat->name working))
-				 (t (lyskom-get-string
-				     'not-present-anywhere)))))
-  (cond
-   (kom-show-where-and-what
-    (lyskom-insert
-     (lyskom-return-who-info-line "     "
-				  (lyskom-return-username who-info)
-				  (concat "(" 
-					  (who-info->doing-what who-info)
-					  ")"))))))
+MY-SESSION-NO is the session number of the running session.
+&optional INSERT-FUNCTION is the function for inserting the text into
+                          the buffer. If nil, use lyskom-insert."
+  (let ((insertfun (if insert-function
+		       insert-function
+		     'lyskom-insert)))
+    (funcall insertfun
+	     (lyskom-return-who-info-line 
+	      (format "%4d%s" 
+		      (who-info->connection who-info)
+		      (if (= my-session-no (who-info->connection who-info))
+			  "*"
+			" "))
+	      (conf-stat->name conf-stat)
+	      (cond
+	       ((conf-stat->name working))
+	       (t (lyskom-get-string 'not-present-anywhere)))))
+    (if kom-show-where-and-what
+	(funcall insertfun
+		 (lyskom-return-who-info-line 
+		  "     "
+		  (lyskom-return-username who-info)
+		  (concat "(" 
+			  (who-info->doing-what who-info)
+			  ")"))))))
 
 		 
 (defun lyskom-fix-str (len str)