[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp vc-arch.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp vc-arch.el |
Date: |
Wed, 03 Dec 2008 07:35:20 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp vc-arch.el,
Glenn Morris <=