From cb7bddf66162ba9383cb18b54e8380ca02afb5fb Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Thu, 18 Oct 2007 15:56:22 +0000 Subject: (artist-previous-line, artist-next-line): Use forward-line. --- lisp/textmodes/artist.el | 22 ++++++++-------------- 1 file changed, 8 insertions(+), 14 deletions(-) (limited to 'lisp/textmodes') diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index bc0434e151..f044290418 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. -- cgit v1.2.3