diff options
| author | Michael Albinus | 2008-02-02 10:50:03 +0000 |
|---|---|---|
| committer | Michael Albinus | 2008-02-02 10:50:03 +0000 |
| commit | f88276af2ff49b6bbd9f03d6fe5cff018832ec27 (patch) | |
| tree | efb35e98c227b0cc4bb7292c84f7572c84201f10 | |
| parent | 500d481b51f671e998bc2298206313625c644a2d (diff) | |
| download | emacs-f88276af2ff49b6bbd9f03d6fe5cff018832ec27.tar.gz emacs-f88276af2ff49b6bbd9f03d6fe5cff018832ec27.zip | |
* net/tramp-vc.el (tramp-vc-do-command): Use `mapc' instead of `mapcar'.
| -rw-r--r-- | lisp/net/tramp-vc.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/net/tramp-vc.el b/lisp/net/tramp-vc.el index 52e47905970..b66d74e54aa 100644 --- a/lisp/net/tramp-vc.el +++ b/lisp/net/tramp-vc.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; tramp-vc.el --- Version control integration for TRAMP.el | 1 | ;;; tramp-vc.el --- Version control integration for TRAMP.el |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, | 3 | ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, |
| 4 | ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. | 4 | ;; 2007, 2008 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Daniel Pittman <daniel@danann.net> | 6 | ;; Author: Daniel Pittman <daniel@danann.net> |
| 7 | ;; Keywords: comm, processes | 7 | ;; Keywords: comm, processes |
| @@ -98,9 +98,8 @@ See `vc-do-command' for more information." | |||
| 98 | 98 | ||
| 99 | (erase-buffer) | 99 | (erase-buffer) |
| 100 | 100 | ||
| 101 | (mapcar | 101 | (mapc |
| 102 | (function | 102 | (lambda (s) (and s (setq squeezed (append squeezed (list s))))) |
| 103 | (lambda (s) (and s (setq squeezed (append squeezed (list s)))))) | ||
| 104 | flags) | 103 | flags) |
| 105 | (if (and (eq last 'MASTER) file | 104 | (if (and (eq last 'MASTER) file |
| 106 | (setq vc-file (vc-name file))) | 105 | (setq vc-file (vc-name file))) |