commit - 5dec261eef82fd84ad75a51f7060e840b01183a6
commit + 12ca62f2d57553ed120e902a25bd3231825de240
blob - 083718cd6b5cd7775e19d6cef1b9ff51add91c6d
blob + 71823918621def2c08dc0a67db3f2ac9c3c53cea
--- vc-got.el
+++ vc-got.el
(defvar vc-got-cmd "got"
"The got command.")
+(defcustom vc-got-diff-switches t
+ "String or list of strings specifying switches for Got 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)))
+
;; helpers
(defun vc-got-root (file)
(defun vc-got--diff (&rest args)
"Call got diff with ARGS. The result will be stored in the current buffer."
(apply #'vc-got--call "diff"
- (mapcar #'file-relative-name args)))
+ (append (vc-switches 'got 'diff)
+ (mapcar #'file-relative-name args))))
;; Backend properties
(vc-got--log nil nil nil nil pattern))))
;; TODO: async
-;; TODO: we should append (vc-switches 'got 'diff) to the switches.
-;; This by default is ("-u") and causes an error.
;; TODO: return 0 or 1
(defun vc-got-diff (files &optional rev1 rev2 buffer _async)
"Insert into BUFFER (or *vc-diff*) the diff for FILES from REV1 to REV2."