From 4541aa9ef068e7ce3ac8d562dd85517182cdd15c Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 2 Sep 2008 06:09:27 -0400 Subject: Removed code that was appending text to the ends of variables, rather than using format string specifiers. --- chess-ics.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'chess-ics.el') diff --git a/chess-ics.el b/chess-ics.el index 8341651c..1cbdaa9 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -790,9 +790,6 @@ descending order.") (defun chess-ics-sought-add (id name rating rated time inc variant ics-buffer cmd) - (setq id (concat id (make-string (- 4 (length id)) ? ))) - (setq name (concat name (make-string (- 20 (length name)) ? ))) - (setq variant (concat variant (make-string (- 25 (length variant)) ? ))) (with-current-buffer (or (get-buffer chess-ics-sought-buffer-name) (with-current-buffer (get-buffer-create @@ -807,7 +804,7 @@ descending order.") (delete-region (point) (1+ (line-end-position)))) (goto-char (point-min)) (let ((beg (point))) - (insert (format "%s %s %4d %4s %3d/%3d %s" + (insert (format "%4s %20s %4d %4s %3d/%3d %s" id name rating rated time inc variant)) (add-text-properties beg (point) -- cgit v1.2.3