[Emacs-diffs] master 0249277: Support git commit --no-verify

[Dmitry Gutov]

branch: master
commit 0249277925c216d06dfe584bb72c3b03078de74b
Author: Matthias Meulien <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Support git commit --no-verify
    
    * lisp/vc/vc-git.el (vc-git-log-edit-toggle-no-verify): New function.
    (vc-git-log-edit-mode-map): Add binding.
    (vc-git-checkin): Add an entry for that header.
---
 lisp/vc/vc-git.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index f317400..aa6809f 100644
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -757,6 +757,11 @@ the commit message."
   (interactive)
   (log-edit-toggle-header "Sign-Off" "yes"))
 
+(defun vc-git-log-edit-toggle-no-verify ()
+  "Toggle whether to bypass the pre-commit and commit-msg hooks."
+  (interactive)
+  (log-edit-toggle-header "No-Verify" "yes"))
+
 (defun vc-git-log-edit-toggle-amend ()
   "Toggle whether this will amend the previous commit.
 If toggling on, also insert its message into the buffer."
@@ -782,6 +787,7 @@ If toggling on, also insert its message into the buffer."
 (defvar vc-git-log-edit-mode-map
   (let ((map (make-sparse-keymap "Git-Log-Edit")))
     (define-key map "\C-c\C-s" 'vc-git-log-edit-toggle-signoff)
+    (define-key map "\C-c\C-n" 'vc-git-log-edit-toggle-no-verify)
     (define-key map "\C-c\C-e" 'vc-git-log-edit-toggle-amend)
     map))
 
@@ -825,6 +831,7 @@ It is based on `log-edit-mode', and has Git-specific 
extensions.")
                             `(("Author" . "--author")
                               ("Date" . "--date")
                               ("Amend" . ,(boolean-arg-fn "--amend"))
+                              ("No-Verify" . ,(boolean-arg-fn "--no-verify"))
                               ("Sign-Off" . ,(boolean-arg-fn "--signoff")))
                             comment)))
                       (when msg-file