diff options
| author | John Wiegley <johnw@newartisans.com> | 2008-09-02 06:09:27 -0400 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2008-09-02 06:09:27 -0400 |
| commit | 4541aa9ef068e7ce3ac8d562dd85517182cdd15c (patch) | |
| tree | 7570174a21437a5813038ec2cfb7ffba8f95ba5e | |
| parent | b651df304c04900c38b71fbf1d69bc9c3a56e7b1 (diff) | |
Removed code that was appending text to the ends of variables, rather than
using format string specifiers.
| -rw-r--r-- | chess-ics.el | 5 |
1 files changed, 1 insertions, 4 deletions
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) |