emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/ediff-util.el,v


From: Juanma Barranquero
Subject: [Emacs-diffs] Changes to emacs/lisp/ediff-util.el,v
Date: Tue, 25 Sep 2007 10:48:17 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/09/25 10:48:16

Index: ediff-util.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ediff-util.el,v
retrieving revision 1.74
retrieving revision 1.75
diff -u -b -r1.74 -r1.75
--- ediff-util.el       19 Aug 2007 13:47:08 -0000      1.74
+++ ediff-util.el       25 Sep 2007 10:48:16 -0000      1.75
@@ -1317,7 +1317,7 @@
   ;; change default
   (setq-default ediff-window-setup-function window-setup-func)
   ;; change in all active ediff sessions
-  (mapcar (lambda(buf) (ediff-with-current-buffer buf
+  (mapc (lambda(buf) (ediff-with-current-buffer buf
                         (setq ediff-window-setup-function window-setup-func
                               ediff-window-B nil)))
          ediff-session-registry)
@@ -1341,7 +1341,7 @@
        ;; do this only after killing the toolbar
        (setq ediff-use-toolbar-p (not ediff-use-toolbar-p))
 
-       (mapcar (lambda(buf)
+       (mapc (lambda(buf)
                  (ediff-with-current-buffer buf
                    ;; force redisplay
                    (setq ediff-window-config-saved "")
@@ -2439,11 +2439,11 @@
 
   ;; Apply selective display to narrow or widen
   (ediff-visible-region)
-  (mapcar (lambda (overl)
+  (mapc (lambda (overl)
            (if (ediff-overlayp overl)
                (ediff-delete-overlay overl)))
          ediff-wide-bounds)
-  (mapcar (lambda (overl)
+  (mapc (lambda (overl)
            (if (ediff-overlayp overl)
                (ediff-delete-overlay overl)))
          ediff-narrow-bounds)
@@ -3747,7 +3747,7 @@
 ;; VEC is either a difference vector or a fine-diff vector
 (defun ediff-clear-diff-vector (vec-var &optional fine-diffs-also)
   (if (vectorp (symbol-value vec-var))
-      (mapcar (lambda (elt)
+      (mapc (lambda (elt)
                (ediff-delete-overlay
                 (ediff-get-diff-overlay-from-diff-record elt))
                (if fine-diffs-also




reply via email to

[Prev in Thread] Current Thread [Next in Thread]