From: Thien-Thi Nguyen Date: Thu, 18 Oct 2007 15:56:22 +0000 (+0000) Subject: (artist-previous-line, artist-next-line): Use forward-line. X-Git-Tag: emacs-pretest-23.0.90~10251 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cb7bddf66162ba9383cb18b54e8380ca02afb5fb;p=emacs.git (artist-previous-line, artist-next-line): Use forward-line. --- 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 + + * textmodes/artist.el (artist-previous-line, artist-next-line): + Use forward-line. + 2007-10-18 Juanma Barranquero * 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.