Mercurial > emacs

comparison lisp/net/tramp-vc.el @ 80005:02b15b3223ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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