Commit 6867dbdb authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

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

parent 6792b489
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.
......
......@@ -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 ()
......
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