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