Mercurial > emacs

comparison lisp/vc-rcs.el @ 47805:81b51b0d6e66

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-rcs-find-version): Fix vc-checkout-switches use.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 08 Oct 2002 20:23:36 +0000
parents d0555af982c8
children b05233e8524d
comparison
equal deleted inserted replaced
47804:e635ea5fd015 47805:81b51b0d6e66
3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc.
4 4
5 ;; Author: FSF (see vc.el for full credits) 5 ;; Author: FSF (see vc.el for full credits)
6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
7 7
8 ;; $Id: vc-rcs.el,v 1.27 2002/10/04 18:38:04 monnier Exp $ 8 ;; $Id: vc-rcs.el,v 1.28 2002/10/08 15:33:18 monnier Exp $
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
358 (defun vc-rcs-find-version (file rev buffer) 358 (defun vc-rcs-find-version (file rev buffer)
359 (apply 'vc-do-command 359 (apply 'vc-do-command
360 buffer 0 "co" (vc-name file) 360 buffer 0 "co" (vc-name file)
361 "-q" ;; suppress diagnostic output 361 "-q" ;; suppress diagnostic output
362 (concat "-p" rev) 362 (concat "-p" rev)
363 vc-checkout-switches)) 363 (if (stringp vc-checkout-switches)
364 (list vc-checkout-switches)
365 vc-checkout-switches)))
364 366
365 (defun vc-rcs-checkout (file &optional editable rev) 367 (defun vc-rcs-checkout (file &optional editable rev)
366 "Retrieve a copy of a saved version of FILE." 368 "Retrieve a copy of a saved version of FILE."
367 (let ((file-buffer (get-file-buffer file)) 369 (let ((file-buffer (get-file-buffer file))
368 switches) 370 switches)