From e98a0cab3fa886a18834d53d53f1807511d37630 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 3 Dec 2008 07:35:14 +0000 Subject: [PATCH] (vc-arch-diff-switches): New option, for consistency with other backends. (vc-arch-diff): Apply switches. --- lisp/vc-arch.el | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el index 8d1f862fb24..8bde884cdc2 100644 --- a/lisp/vc-arch.el +++ b/lisp/vc-arch.el @@ -1,6 +1,7 @@ ;;; vc-arch.el --- VC backend for the Arch version-control system -;; Copyright (C) 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. +;; Copyright (C) 2004, 2005, 2006, 2007, 2008 +;; Free Software Foundation, Inc. ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Stefan Monnier @@ -64,6 +65,19 @@ ;;; Customization options ;;; +;; It seems Arch diff does not accept many options, so this is not +;; very useful. It exists mainly so that the VC backends are all +;; consistent with regards to their treatment of diff switches. +(defcustom vc-arch-diff-switches t + "String or list of strings specifying switches for Arch diff under VC. +If nil, use the value of `vc-diff-switches'. If t, use no switches." + :type '(choice (const :tag "Unspecified" nil) + (const :tag "None" t) + (string :tag "Argument String") + (repeat :tag "Argument List" :value ("") string)) + :version "23.1" + :group 'vc) + (define-obsolete-variable-alias 'vc-arch-command 'vc-arch-program "23.1") (defcustom vc-arch-program @@ -450,8 +464,7 @@ CALLBACK expects (ENTRIES &optional MORE-TO-COME); see (or buffer "*vc-diff*") (if async 'async 1) nil "file-diffs" - ;; Arch does not support the typical flags. - ;; (vc-switches 'Arch 'diff) + (vc-switches 'Arch 'diff) (file-relative-name file) (if (equal oldvers (vc-working-revision file)) nil -- 2.39.2