+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.
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)
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.