Mercurial > emacs

changeset 84925:003285de78e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(artist-mt-get-symbol-from-keyword-sub, artist-go-retrieve-from-symbol-sub, artist-go-get-symbol-shift-sub, artist-fc-retrieve-from-symbol-sub, artist-vaporize-line, artist-vaporize-lines, artist-ellipse-compute-fill-info, artist-submit-bug-report): Use `mapc' rather than `mapcar'.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 26 Sep 2007 00:31:44 +0000
parents c3fb2ef00f90
children a3f296488aca
files lisp/textmodes/artist.el
diffstat 1 files changed, 10 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/artist.el	Wed Sep 26 00:30:33 2007 +0000
+++ b/lisp/textmodes/artist.el	Wed Sep 26 00:31:44 2007 +0000
@@ -1562,7 +1562,7 @@
 (defun artist-mt-get-symbol-from-keyword-sub (table kwd)
   "Search TABLE for keyword KWD and return its symbol."
   (catch 'found
-    (mapcar
+    (mapc
      (lambda (element)
        (let ((element-tag (artist-mt-get-tag element)))
 	 (cond ((eq element-tag 'graphics-operation)
@@ -1611,7 +1611,7 @@
 Calls RETRIEVE-FN to retrieve information from that symbol's
 info-variant-part."
   (catch 'found
-    (mapcar
+    (mapc
      (lambda (element)
        (let ((element-tag (artist-mt-get-tag element)))
 	 (cond ((eq element-tag 'graphics-operation)
@@ -1700,7 +1700,7 @@
 If IS-SHIFTED is non-nil, return the shifted symbol,
 otherwise the shifted symbol."
   (catch 'found
-    (mapcar
+    (mapc
      (lambda (element)
        (let ((element-tag (artist-mt-get-tag element)))
 	 (cond ((eq element-tag 'graphics-operation)
@@ -1737,7 +1737,7 @@
 Calls RETRIEVE-FN to retrieve information from that symbol's
 info-variant-part."
   (catch 'found
-    (mapcar
+    (mapc
      (lambda (element)
        (let ((element-tag (artist-mt-get-tag element)))
 	 (cond ((eq element-tag 'function-call)
@@ -3160,7 +3160,7 @@
 `artist-erase-char'.  Output is a list of endpoints for lines
 through X1, Y1. An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
   (let ((endpoints (artist-vap-find-endpoints x1 y1)))
-    (mapcar
+    (mapc
      (lambda (endpoints)
        (let ((ep1 (car endpoints))
 	     (ep2 (car (cdr endpoints))))
@@ -3213,14 +3213,14 @@
 (defun artist-vaporize-lines (x1 y1)
   "Vaporize lines reachable from point X1, Y1."
   (let ((ep-stack nil))
-    (mapcar
+    (mapc
      (lambda (ep) (push ep ep-stack))
      (artist-vap-find-endpoints x1 y1))
     (while (not (null ep-stack))
       (let* ((vaporize-point (pop ep-stack))
 	     (new-endpoints (artist-vaporize-line (car vaporize-point)
 						  (cdr vaporize-point))))
-	(mapcar
+	(mapc
 	 (lambda (endpoint) (push endpoint ep-stack))
 	 new-endpoints)))))
 
@@ -3340,7 +3340,7 @@
 
     ;; Create first half (the lower one (since y grows downwards)) from
     ;; the first quadrant.
-    (mapcar
+    (mapc
      (lambda (coord)
        (let* ((x         (artist-coord-get-x coord))
 	      (y         (artist-coord-get-y coord))
@@ -3359,7 +3359,7 @@
     ;; Create the other half by mirroring the first half.
     (setq both-halves
 	  (append first-half
-		  (mapcar
+		  (mapc
 		   (lambda (i)
 		     (artist-new-fill-item (artist-fill-item-get-x i)
 					   (- (artist-fill-item-get-y i))
@@ -5361,7 +5361,7 @@
 		    artist-arrow-point-1
 		    artist-arrow-point-2)))
 	;; Remove those variables from vars that are not bound
-	(mapcar
+	(mapc
 	 (function
 	  (lambda (x)
 	    (if (not (and (boundp x) (symbol-value x)))