Mercurial > emacs
comparison lisp/net/tramp-vc.el @ 80005:02b15b3223ca
* net/tramp-vc.el (tramp-vc-do-command): Use `mapc' instead of `mapcar'.
author | Michael Albinus <michael.albinus@gmx.de> |
---|---|
date | Sat, 02 Feb 2008 10:50:03 +0000 |
parents | 6888fd3398e8 |
children |
comparison
equal
deleted
inserted
replaced
80004:f5cb921ec99c | 80005:02b15b3223ca |
---|---|
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 |
8 | 8 |
9 ;; This file is part of GNU Emacs. | 9 ;; This file is part of GNU Emacs. |
96 (concat " from " (buffer-name camefrom))) | 96 (concat " from " (buffer-name camefrom))) |
97 (setq default-directory olddir) | 97 (setq default-directory olddir) |
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))) |
107 (setq squeezed | 106 (setq squeezed |
108 (append squeezed | 107 (append squeezed |