Return to tools.el CVS log | Up to [Local Repository] / reports |
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))