From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 26 Sep 2007 00:16:39 +0000 (+0000)
Subject: (cua--deactivate-rectangle, cua--highlight-rectangle,
X-Git-Tag: emacs-pretest-23.0.90~10637
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=026056a4c8f6d41b4bfc9842443940693a4eb831;p=emacs.git

(cua--deactivate-rectangle, cua--highlight-rectangle,
cua--rectangle-post-command): Use `mapc' rather than `mapcar'.
---

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 226f696dad2..5c4bc011464 100644
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -731,7 +731,7 @@ If command is repeated at same position, delete the rectangle."
 
 (defun cua--deactivate-rectangle ()
   ;; This is used to clean up after `cua--activate-rectangle'.
-  (mapcar (function delete-overlay) cua--rectangle-overlays)
+  (mapc (function delete-overlay) cua--rectangle-overlays)
   (setq cua--last-rectangle (cons (current-buffer)
                                   (cons (point) ;; cua-save-point
                                         cua--rectangle))
@@ -837,7 +837,7 @@ If command is repeated at same position, delete the rectangle."
 	     (overlay-put overlay 'window (selected-window))
 	     (setq new (cons overlay new))))))
     ;; Trim old trailing overlays.
-    (mapcar (function delete-overlay) old)
+    (mapc (function delete-overlay) old)
     (setq cua--rectangle-overlays (nreverse new))))
 
 (defun cua--indent-rectangle (&optional ch to-col clear)
@@ -1401,7 +1401,7 @@ With prefix arg, indent to that column."
         (cua--deactivate-rectangle))
     (when cua--rectangle-overlays
       ;; clean-up after revert-buffer
-      (mapcar (function delete-overlay) cua--rectangle-overlays)
+      (mapc (function delete-overlay) cua--rectangle-overlays)
       (setq cua--rectangle-overlays nil)
       (setq deactivate-mark t)))
   (when cua--rect-undo-set-point