diff options
author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2007-10-18 15:56:22 +0000 |
---|---|---|
committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2007-10-18 15:56:22 +0000 |
commit | cb7bddf66162ba9383cb18b54e8380ca02afb5fb (patch) | |
tree | f6e5bbe0d16f2126b03ee521e5e7abcd9a08f8db /lisp/textmodes/artist.el | |
parent | fdd2ae6d90f05195d31a686b02923896324762f2 (diff) | |
download | emacs-cb7bddf66162ba9383cb18b54e8380ca02afb5fb.tar.gz |
(artist-previous-line, artist-next-line): Use forward-line.
Diffstat (limited to 'lisp/textmodes/artist.el')
-rw-r--r-- | lisp/textmodes/artist.el | 22 |
1 files changed, 8 insertions, 14 deletions
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. |