Return to tools.el CVS log

Up to [Local Repository] / reports

new info

(defun add-spaces (&optional num)
  "Add spaces until the line has num spaces"
  (interactive "p")
  (if (<= num 1) (setq num 70))
  (end-of-line)
  (while (> num (- (line-end-position) (line-beginning-position)))
    (insert " "))
  (next-line 1)
  (beginning-of-line))