mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source 
(vc-arch-diff): Apply switches.
This commit is contained in:
Glenn Morris 2008-12-03 07:35:14 +00:00
parent 905ca9d212
commit e98a0cab3f
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/vc-arch.el
View File

@ -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 @@ 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