# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1192722956 0
# Node ID a72f314c5cd8cbb9f990fdbdd434b2fca4368b5d
# Parent  988c305fd2e040cb986f446a2fd834bac2d9882b
(artist-previous-line, artist-next-line): Use forward-line.

diff -r 988c305fd2e0 -r a72f314c5cd8 lisp/textmodes/artist.el
--- a/lisp/textmodes/artist.el	Thu Oct 18 13:29:30 2007 +0000
+++ b/lisp/textmodes/artist.el	Thu Oct 18 15:55:56 2007 +0000
@@ -4383,13 +4383,10 @@
 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 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.