Return to tools.el CVS log

Up to [Local Repository] / reports

Annotation of reports/tools.el, revision 1.2

1.1       boris       1: (defun add-spaces (&optional num)
                      2:   "Add spaces until the line has num spaces"
                      3:   (interactive "p")
                      4:   (if (<= num 1) (setq num 70))
                      5:   (end-of-line)
                      6:   (while (> num (- (line-end-position) (line-beginning-position)))
                      7:     (insert " "))
                      8:   (beginning-of-line))