# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1201949403 0
# Node ID 02b15b3223cad6daf98e838707b698f148050587
# Parent  f5cb921ec99c34d92fac347840d9b226d56cec45
* net/tramp-vc.el (tramp-vc-do-command): Use `mapc' instead of `mapcar'.

diff -r f5cb921ec99c -r 02b15b3223ca lisp/net/tramp-vc.el
--- a/lisp/net/tramp-vc.el	Sat Feb 02 10:49:10 2008 +0000
+++ b/lisp/net/tramp-vc.el	Sat Feb 02 10:50:03 2008 +0000
@@ -1,7 +1,7 @@
 ;;; tramp-vc.el --- Version control integration for TRAMP.el
 
-;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+;;   2007, 2008 Free Software Foundation, Inc.
 
 ;; Author: Daniel Pittman <daniel@danann.net>
 ;; Keywords: comm, processes
@@ -98,9 +98,8 @@
 
 	(erase-buffer)
 
-	(mapcar
-	 (function
-	  (lambda (s) (and s (setq squeezed (append squeezed (list s))))))
+	(mapc
+	 (lambda (s) (and s (setq squeezed (append squeezed (list s)))))
 	 flags)
 	(if (and (eq last 'MASTER) file
 		 (setq vc-file (vc-name file)))