Trailing spaces in who-buffer and in who-list removed.

src/ChangeLog

 Sun Jul  5 05:02:37 1992  Linus Tolke Y  (linus@lysator)
 
+	* commands1.el (lyskom-return-who-info-line): Now removes all
+	  ending spaces.
+
 	* commands1.el (lyskom-write-comment, lyskom-comment-recipients):
 	  Now writing footnotes keep the cc-recipients.
 

src/commands1.el

@@ -1655,14 +1655,16 @@ MY-SESSION-NO is the session number of the running session.
 
 (defun lyskom-return-who-info-line (prefix string1 string2)
   "Return a formatted line (with reference to the current window width."
-  (concat
-   prefix
-   (lyskom-fix-str (/ (* 37 (- (lyskom-window-width) 7)) 73)
-		   string1)
-   " "
-   (lyskom-fix-str (/ (* 36 (- (lyskom-window-width) 7)) 73)
-		   string2)
-   "\n"))
+  (let ((line (concat
+	       prefix
+	       (lyskom-fix-str (/ (* 37 (- (lyskom-window-width) 7)) 73)
+			       string1)
+	       " "
+	       (lyskom-fix-str (/ (* 36 (- (lyskom-window-width) 7)) 73)
+			       string2))))
+    (while (string= (substring line -1) " ")
+      (setq line (substring line 0 -2)))
+    (concat line "\n")))
 
     
 (defun lyskom-window-width ()