diff options
| author | Glenn Morris | 2008-01-04 03:13:26 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-01-04 03:13:26 +0000 |
| commit | e61aad2fb8fe97b13e78874655d45b302a9bac17 (patch) | |
| tree | 40d9a849f0872f48298f69f83bbce0fc7ddc06c5 | |
| parent | 93926b0766746406429ca00bbdff31909a6a3445 (diff) | |
| download | emacs-e61aad2fb8fe97b13e78874655d45b302a9bac17.tar.gz emacs-e61aad2fb8fe97b13e78874655d45b302a9bac17.zip | |
(tramp-smb-handle-insert-directory): Use mapc rather than mapcar.
| -rw-r--r-- | lisp/net/tramp-smb.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 @@ | |||
| 1 | ;;; tramp-smb.el --- Tramp access functions for SMB servers | 1 | ;;; tramp-smb.el --- Tramp access functions for SMB servers |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, | 3 | ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, |
| 4 | ;; 2007 Free Software Foundation, Inc. | 4 | ;; 2007, 2008 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Michael Albinus <michael.albinus@gmx.de> | 6 | ;; Author: Michael Albinus <michael.albinus@gmx.de> |
| 7 | ;; Keywords: comm, processes | 7 | ;; Keywords: comm, processes |
| @@ -472,7 +472,7 @@ PRESERVE-UID-GID is completely ignored." | |||
| 472 | 472 | ||
| 473 | ;; Handle "-F" switch. | 473 | ;; Handle "-F" switch. |
| 474 | (when (string-match "F" switches) | 474 | (when (string-match "F" switches) |
| 475 | (mapcar | 475 | (mapc |
| 476 | (lambda (x) | 476 | (lambda (x) |
| 477 | (when (not (zerop (length (car x)))) | 477 | (when (not (zerop (length (car x)))) |
| 478 | (cond | 478 | (cond |