[elpa] externals/vc-hgcmd f5ecf9b 44/87: Interactive function to run custom hg commands

[Stefan Monnier]

branch: externals/vc-hgcmd
commit f5ecf9b11b798aaa1f63ad64227fc7e59658c8ae
Author: muffinmad <andreyk.mad@gmail.com>
Commit: muffinmad <andreyk.mad@gmail.com>

    Interactive function to run custom hg commands
---
 README.md   | 4 ++++
 vc-hgcmd.el | 9 ++++++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index 57bf0b0..82cffb0 100644
--- a/README.md
+++ b/README.md
@@ -81,6 +81,10 @@ Additionally predefined commit message passed to custom 
function `vc-hgcmd-log-e
  '(vc-hgcmd-log-edit-message-function 'my/hg-commit-message))
 ```
 
+#### Run custom hg commands
+
+Interactive function `vc-hgcmd-runcommand` allow execute custom command.
+
 ## Installation
 
 `vc-hgcmd` available on [MELPA](http://melpa.org):
diff --git a/vc-hgcmd.el b/vc-hgcmd.el
index aa66b6a..d3ddb4c 100644
--- a/vc-hgcmd.el
+++ b/vc-hgcmd.el
@@ -5,7 +5,7 @@
 ;; Author: Andrii Kolomoiets <andreyk.mad@gmail.com>
 ;; Keywords: vc
 ;; URL: https://github.com/muffinmad/emacs-vc-hgcmd
-;; Package-Version: 1.3.11
+;; Package-Version: 1.3.12
 ;; Package-Requires: ((emacs "25.1"))
 
 ;; This file is NOT part of GNU Emacs.
@@ -85,6 +85,8 @@
 ;;
 ;;     (custom-set-variables
 ;;      '(vc-hgcmd-log-edit-message-function 'my/hg-commit-message))
+;;
+;; - Interactive command `vc-hgcmd-runcommand' that allow to run custom hg 
commands
 
 
 ;;; Code:
@@ -924,6 +926,11 @@ Insert output to process buffer and check if amount of 
data is enought to parse
   "Return the ignore file of the repository of FILE."
   (expand-file-name ".hgignore" (vc-hgcmd-root file)))
 
+(defun vc-hgcmd-runcommand (command)
+  "Run custom hg COMMAND."
+  (interactive "sRun hg: ")
+  (vc-hgcmd-command-update-callback (split-string-and-unquote command)))
+
 (provide 'vc-hgcmd)
 
 ;;; vc-hgcmd.el ends here