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 ;;; |