Return to tools.el CVS log

Up to [Local Repository] / reports

Annotation of reports/tools.el, revision 1.1

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:   (next-line 1)
        !             9:   (beginning-of-line))