[Emacs-diffs] emacs/lisp vc-arch.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/12/03 07:35:19

Modified files:
        lisp           : vc-arch.el 

Log message:
        (vc-arch-diff-switches): New option, for consistency with other 
backends.
        (vc-arch-diff): Apply switches.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-arch.el?cvsroot=emacs&r1=1.49&r2=1.50

Patches:
Index: vc-arch.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-arch.el,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -b -r1.49 -r1.50
--- vc-arch.el  22 Nov 2008 03:30:22 -0000      1.49
+++ vc-arch.el  3 Dec 2008 07:35:14 -0000       1.50
@@ -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 <address@hidden>
@@ -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