Mercurial > emacs
comparison lisp/tumme.el @ 72083:bb51418c995c
Add extra check for end of buffer.
author | Mathias Dahl <mathias.dahl@gmail.com> |
---|---|
date | Mon, 24 Jul 2006 09:40:09 +0000 |
parents | 43d3a49f9bd4 |
children | eeafd2670b7f |
comparison
equal
deleted
inserted
replaced
72082:b5cc98f000c1 | 72083:bb51418c995c |
---|---|
1657 (forward-char) | 1657 (forward-char) |
1658 (if (= tumme-thumbs-per-row 1) | 1658 (if (= tumme-thumbs-per-row 1) |
1659 (insert "\n") | 1659 (insert "\n") |
1660 (insert " ") | 1660 (insert " ") |
1661 (setq count (1+ count)) | 1661 (setq count (1+ count)) |
1662 (when (= count (- tumme-thumbs-per-row 1)) | 1662 (when (and (= count (- tumme-thumbs-per-row 1)) |
1663 (not (eobp))) | |
1663 (forward-char) | 1664 (forward-char) |
1664 (insert "\n") | 1665 (insert "\n") |
1665 (setq count 0))))) | 1666 (setq count 0))))) |
1666 (goto-char (point-min)))) | 1667 (goto-char (point-min)))) |
1667 | 1668 |