bug#34305: [PATCH] Add switches to hg revert

[Ian Dunn <dunni@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 390 bytes --]


    DG> On 04.02.2019 05:55, Ian Dunn wrote:
    >> +  ;; No nil option, since there's no `vc-revert-switches' variable.

    DG> nil should still work (vc-switches checks whether vc-revert-switches is bound,
    DG> it's not an error), and it would probably be more intuitive.

I see your point.  `vc-bzr-log-switches' does this as well.  I've updated the patch to use nil instead of t.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: vc-hg.el.diff --]
[-- Type: text/x-patch, Size: 1049 bytes --]

diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el
index befaabd5c6..e7b7de38e6 100644
--- a/lisp/vc/vc-hg.el
+++ b/lisp/vc/vc-hg.el
@@ -145,6 +145,15 @@ switches."
   :version "25.1"
   :group 'vc-hg)
 
+(defcustom vc-hg-revert-switches nil
+  "String or list of strings specifying switches for hg revert
+under VC."
+  :type '(choice (const :tag "None" nil)
+		 (string :tag "Argument String")
+		 (repeat :tag "Argument List" :value ("") string))
+  :version "27.1"
+  :group 'vc-hg)
+
 (defcustom vc-hg-program "hg"
   "Name of the Mercurial executable (excluding any arguments)."
   :type 'string
@@ -1161,7 +1171,11 @@ REV is the revision to check out into WORKFILE."
 ;; Modeled after the similar function in vc-bzr.el
 (defun vc-hg-revert (file &optional contents-done)
   (unless contents-done
-    (with-temp-buffer (vc-hg-command t 0 file "revert"))))
+    (with-temp-buffer
+      (apply #'vc-hg-command
+             t 0 file
+             "revert"
+             (append (vc-switches 'hg 'revert))))))
 
 ;;; Hg specific functionality.
 

[-- Attachment #3: Type: text/plain, Size: 14 bytes --]


-- 
Ian Dunn