Return to tools.el CVS log

Up to [Local Repository] / reports

New info

    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))