# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1228289714 0
# Node ID 5a223111838eb09b5fe5ec7150c7ea59b09ba295
# Parent  5706ca7c3d028d0b3537e35314c1f659fa3ad3d2
(vc-arch-diff-switches): New option, for consistency with other backends.
(vc-arch-diff): Apply switches.

diff -r 5706ca7c3d02 -r 5a223111838e lisp/vc-arch.el
--- a/lisp/vc-arch.el	Wed Dec 03 06:35:02 2008 +0000
+++ b/lisp/vc-arch.el	Wed Dec 03 07:35:14 2008 +0000
@@ -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 <monnier@gnu.org>
@@ -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 @@
                (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