[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el,v
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el,v |
Date: |
Wed, 26 Sep 2007 00:16:40 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Juanma Barranquero <lektu> 07/09/26 00:16:39
Index: cua-rect.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/cua-rect.el,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- cua-rect.el 26 Jul 2007 05:26:49 -0000 1.36
+++ cua-rect.el 26 Sep 2007 00:16:39 -0000 1.37
@@ -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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el,v,
Juanma Barranquero <=