Mercurial > emacs

changeset 84905:47928cf63c6c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cua--deactivate-rectangle, cua--highlight-rectangle, cua--rectangle-post-command): Use `mapc' rather than `mapcar'.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 26 Sep 2007 00:16:39 +0000
parents e2e245301b8c
children afc4adbe0af6
files lisp/emulation/cua-rect.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/cua-rect.el	Wed Sep 26 00:15:54 2007 +0000
+++ b/lisp/emulation/cua-rect.el	Wed Sep 26 00:16:39 2007 +0000
@@ -731,7 +731,7 @@
 
 (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 @@
 	     (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 @@
         (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