diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/subr.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index f70f3edd028..447c3eb1a4f 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2340,9 +2340,10 @@ Usage example: ;; Add padding. (while (not (eobp)) (end-of-line) - (insert (make-string (- (* (mod times columns) - (+ fill-column 4)) - (current-column)) + (insert (make-string (max (- (* (mod times columns) + (+ fill-column 4)) + (current-column)) + 0) ?\s)) (forward-line 1)))) (setq times (1+ times)) @@ -2354,10 +2355,11 @@ Usage example: (cdr (assq (car elem) altered-names)))) (fill-region (point-min) (point-max)) (when (nth 2 elem) - (insert (nth 2 elem)) - (unless (bolp) - (insert "\n")) - (fill-region start (point-max))) + (let ((start (point))) + (insert (nth 2 elem)) + (unless (bolp) + (insert "\n")) + (fill-region start (point-max)))) (buffer-string)))) (goto-char start) (dolist (line (split-string text "\n")) |