diff options
| author | Eli Zaretskii | 2015-02-04 17:31:37 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2015-02-04 17:31:37 +0200 |
| commit | d825f66db83501588f1c84aa4d78e644e0d5f896 (patch) | |
| tree | 36275f94ba23aa241908dd18e007dbc34c71c431 | |
| parent | 4779a4bbcc2ce7599a546cc61aab6106376680fa (diff) | |
| download | emacs-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/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/textmodes/artist.el | 2 |
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 @@ | |||
| 1 | 2015-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 | |||
| 1 | 2015-02-04 Nicolas Petton <nicolas@petton.fr> | 7 | 2015-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)) |