Mercurial > emacs
comparison lisp/vc-rcs.el @ 43534:5a78c5fa41a1
(vc-rcs-diff): Use consistent parameter format for
vc-diff-switches-list.
author | André Spiegel <spiegel@gnu.org> |
---|---|
date | Mon, 25 Feb 2002 22:04:29 +0000 |
parents | 6301bb6ec388 |
children | 68d54bdba97c |
comparison
equal
deleted
inserted
replaced
43533:d4dab5e8395f | 43534:5a78c5fa41a1 |
---|---|
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.21 2001/08/28 17:05:12 spiegel Exp $ | 8 ;; $Id: vc-rcs.el,v 1.22 2002/01/05 17:21:06 spiegel 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 |
551 (if (not oldvers) (setq oldvers (vc-workfile-version file))) | 551 (if (not oldvers) (setq oldvers (vc-workfile-version file))) |
552 (apply 'vc-do-command "*vc-diff*" 1 "rcsdiff" file | 552 (apply 'vc-do-command "*vc-diff*" 1 "rcsdiff" file |
553 (append (list "-q" | 553 (append (list "-q" |
554 (concat "-r" oldvers) | 554 (concat "-r" oldvers) |
555 (and newvers (concat "-r" newvers))) | 555 (and newvers (concat "-r" newvers))) |
556 (vc-diff-switches-list rcs)))) | 556 (vc-diff-switches-list 'RCS)))) |
557 | 557 |
558 | 558 |
559 ;;; | 559 ;;; |
560 ;;; Snapshot system | 560 ;;; Snapshot system |
561 ;;; | 561 ;;; |