diff options
| author | André Spiegel <spiegel@gnu.org> | 2001-02-01 15:10:16 +0000 |
|---|---|---|
| committer | André Spiegel <spiegel@gnu.org> | 2001-02-01 15:10:16 +0000 |
| commit | c12d3d4d4f7537c5c6b362f2e729f3d112b7fa7a (patch) | |
| tree | 9e18b5017642b7abcd6cc382fb980b6dd52bb063 | |
| parent | 7c282e01516422e6c7d8a9c5ebdcca16bea6914a (diff) | |
| download | emacs-c12d3d4d4f7537c5c6b362f2e729f3d112b7fa7a.tar.gz | |
(vc-cvs-diff-switches): New customization option.
(vc-cvs-diff): Use it via vc-diff-switches-list.
| -rw-r--r-- | lisp/vc-cvs.el | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 756dd91f73c..4ec9885d4ac 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> -;; $Id: vc-cvs.el,v 1.17 2001/01/25 21:02:37 sds Exp $ +;; $Id: vc-cvs.el,v 1.18 2001/01/29 19:12:40 sds Exp $ ;; This file is part of GNU Emacs. @@ -34,6 +34,7 @@ (defvar vc-register-switches) ; defined in "vc.el", used in `vc-cvs-register' (defvar vc-checkin-switches) ; defined in "vc.el", used in `vc-cvs-checkin' (defvar vc-checkout-switches) ; defined in "vc.el", used in `vc-cvs-checkout' + (autoload 'vc-diff-switches-list "vc") ; used in `vc-cvs-diff' (autoload 'vc-do-command "vc") ; used all over the place (autoload 'vc-trunk-p "vc") ; used in `vc-cvs-checkin' (autoload 'vc-resynch-buffer "vc")) ; used in `vc-cvs-retrieve-snapshot' @@ -54,6 +55,16 @@ A string or list of strings passed to the checkin program by :version "21.1" :group 'vc) +(defcustom vc-cvs-diff-switches nil + "*A string or list of strings specifying extra switches for cvs diff under VC." + :type '(choice (const :tag "None" nil) + (string :tag "Argument String") + (repeat :tag "Argument List" + :value ("") + string)) + :version "21.1" + :group 'vc) + (defcustom vc-cvs-header (or (cdr (assoc 'CVS vc-header-alist)) '("\$Id\$")) "*Header keywords to be inserted by `vc-insert-headers'." :version "21.1" @@ -494,10 +505,7 @@ The changes are between FIRST-VERSION and SECOND-VERSION." (defun vc-cvs-diff (file &optional oldvers newvers) "Get a difference report using CVS between two versions of FILE." - (let (options status - (diff-switches-list (if (listp diff-switches) - diff-switches - (list diff-switches)))) + (let (options status (diff-switches-list (vc-diff-switches-list cvs))) (if (string= (vc-workfile-version file) "0") ;; This file is added but not yet committed; there is no master file. (if (or oldvers newvers) |