aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2015-02-04 17:31:37 +0200
committerEli Zaretskii2015-02-04 17:31:37 +0200
commitd825f66db83501588f1c84aa4d78e644e0d5f896 (patch)
tree36275f94ba23aa241908dd18e007dbc34c71c431
parent4779a4bbcc2ce7599a546cc61aab6106376680fa (diff)
downloademacs-d825f66db83501588f1c84aa4d78e644e0d5f896.tar.gz
emacs-d825f66db83501588f1c84aa4d78e644e0d5f896.zip
Fix filling circle/ellipse in Artist Mode (Bug#19763)
lisp/textmodes/artist.el (artist-ellipse-compute-fill-info): Use mapcar, not mapc, to create the other half of fill-info.
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/textmodes/artist.el2
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e52f9a35b47..e0c8815c648 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
12015-02-04 Eli Zaretskii <eliz@gnu.org>
2
3 * textmodes/artist.el (artist-ellipse-compute-fill-info): Use
4 mapcar, not mapc, to create the other half of fill-info.
5 (Bug#19763)
6
12015-02-04 Nicolas Petton <nicolas@petton.fr> 72015-02-04 Nicolas Petton <nicolas@petton.fr>
2 8
3 * emacs-lisp/authors.el (authors-ignored-files) 9 * emacs-lisp/authors.el (authors-ignored-files)
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index 85d9410868a..930c39c82cc 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -3372,7 +3372,7 @@ The POINT-LIST is expected to cover the first quadrant."
3372 ;; Create the other half by mirroring the first half. 3372 ;; Create the other half by mirroring the first half.
3373 (setq both-halves 3373 (setq both-halves
3374 (append first-half 3374 (append first-half
3375 (mapc 3375 (mapcar
3376 (lambda (i) 3376 (lambda (i)
3377 (artist-new-fill-item (artist-fill-item-get-x i) 3377 (artist-new-fill-item (artist-fill-item-get-x i)
3378 (- (artist-fill-item-get-y i)) 3378 (- (artist-fill-item-get-y i))