]> git.eshelyaron.com Git - emacs.git/commitdiff
(artist-previous-line, artist-next-line): Use forward-line.
authorThien-Thi Nguyen <ttn@gnuvola.org>
Thu, 18 Oct 2007 15:56:22 +0000 (15:56 +0000)
committerThien-Thi Nguyen <ttn@gnuvola.org>
Thu, 18 Oct 2007 15:56:22 +0000 (15:56 +0000)
lisp/ChangeLog
lisp/textmodes/artist.el

index daaeee3e93dfcb7dff0d978440c5c0d92fe760d4..b469883c4ccc35970ed4748fac2f45f8249012a5 100644 (file)
@@ -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.
index bc0434e151ac9c360fdd0b9e98d3e52e16ec7efc..f0442904185c89bd785cda9d61b4f21075da6f5c 100644 (file)
@@ -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.