(artist-previous-line, artist-next-line): Use forward-line.

2 files changed, 13 insertions, 14 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index daaeee3e93d..b469883c4cc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-18  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+        * textmodes/artist.el (artist-previous-line, artist-next-line):
+        Use forward-line.
+
 2007-10-18  Juanma Barranquero  <lekktu@gmail.com>
 
         * textmodes/fill.el (fill-individual-paragraphs): Doc fix.
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index bc0434e151a..f0442904185 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -4383,13 +4383,10 @@ With non-nil ARG, set the last point."
 If N is negative, move cursor down."
   (interactive "p")
   (let ((col (artist-current-column)))
-    (if (not artist-key-is-drawing)
-        (progn
-          (previous-line n)
-          (move-to-column col t))
-      (previous-line n)
-      (move-to-column col t)
-      (artist-key-do-continously-common))))
+    (forward-line (- n))
+    (move-to-column col t))
+  (when artist-key-is-drawing
+    (artist-key-do-continously-common)))
 
 
 (defun artist-next-line (&optional n)
@@ -4397,13 +4394,10 @@ If N is negative, move cursor down."
 If N is negative, move cursor up."
   (interactive "p")
   (let ((col (artist-current-column)))
-    (if (not artist-key-is-drawing)
-        (progn
-          (next-line n)
-          (move-to-column col t))
-      (next-line n)
-      (move-to-column col t)
-      (artist-key-do-continously-common))))
+    (forward-line n)
+    (move-to-column col t))
+  (when artist-key-is-drawing
+    (artist-key-do-continously-common)))
 
 (defun artist-backward-char (&optional n)
   "Move cursor backward optional N chars (default is 1), updating curr shape.