Commit cb7bddf6 authored by Thien-Thi Nguyen's avatar Thien-Thi Nguyen
Browse files

(artist-previous-line, artist-next-line): Use forward-line.

parent fdd2ae6d
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.
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment