From: Glenn Morris <rgm@gnu.org>
Date: Fri, 4 Jan 2008 03:13:26 +0000 (+0000)
Subject: (tramp-smb-handle-insert-directory): Use mapc rather than mapcar.
X-Git-Tag: emacs-pretest-23.0.90~8712
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e61aad2fb8fe97b13e78874655d45b302a9bac17;p=emacs.git

(tramp-smb-handle-insert-directory): Use mapc rather than mapcar.
---

diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index 1406f381922..e9fc92cbc0a 100644
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -1,7 +1,7 @@
 ;;; tramp-smb.el --- Tramp access functions for SMB servers
 
 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006,
-;;   2007 Free Software Foundation, Inc.
+;;   2007, 2008 Free Software Foundation, Inc.
 
 ;; Author: Michael Albinus <michael.albinus@gmx.de>
 ;; Keywords: comm, processes
@@ -472,7 +472,7 @@ PRESERVE-UID-GID is completely ignored."
 
 	;; Handle "-F" switch.
 	(when (string-match "F" switches)
-	  (mapcar
+	  (mapc
 	   (lambda (x)
 	     (when (not (zerop (length (car x))))
 	       (cond