From 0249277925c216d06dfe584bb72c3b03078de74b Mon Sep 17 00:00:00 2001 From: Matthias Meulien Date: Tue, 4 Sep 2018 22:50:56 +0200 Subject: [PATCH] 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 f3174005307..aa6809f626e 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 -- 2.39.2