diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-08-22 19:29:18 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-08-22 19:29:18 +0000 |
| commit | e6ce8c4239a0b7003430d94a5f591e1d4ad50213 (patch) | |
| tree | 17852bba62da89f449af8c75f4fe50a3fb89852f /lisp/strokes.el | |
| parent | a569b4801085fa14c3bd0d153e389636645908b9 (diff) | |
| download | emacs-e6ce8c4239a0b7003430d94a5f591e1d4ad50213.tar.gz | |
Use forward-line rather than goto-line.
Diffstat (limited to 'lisp/strokes.el')
| -rw-r--r-- | lisp/strokes.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/strokes.el b/lisp/strokes.el index 673a0fb50d5..75278f69d13 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el @@ -1187,14 +1187,16 @@ the stroke as a character in some language." (let ((char (or (car rainbow-chars) ?\.))) (loop for i from 0 to 2 do (loop for j from 0 to 2 do - (goto-line (+ 16 i y)) + (goto-char (point-min)) + (forward-line (+ 15 i y)) (forward-char (+ 1 j x)) (delete-char 1) (insert char))) (setq rainbow-chars (cdr rainbow-chars) lift-flag nil)) ;; Otherwise, just plot the point... - (goto-line (+ 17 y)) + (goto-char (point-min)) + (forward-line (+ 16 y)) (forward-char (+ 2 x)) (subst-char-in-region (point) (1+ (point)) ?\s ?\*))) ((strokes-lift-p point) |