branch: externals/vc-hgcmd
commit f5ecf9b11b798aaa1f63ad64227fc7e59658c8ae
Author: muffinmad <andreyk....@gmail.com>
Commit: muffinmad <andreyk....@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....@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
