Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 13:27:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(vc-git-add-signoff): New variable.

Browse source 
(vc-git-checkin): Use it.
(vc-git-toggle-signoff): New function.
(vc-git-extra-menu-map): Bind it to menu.
This commit is contained in:
Dan Nicolaescu 2009-07-23 05:17:27 +00:00
parent 0badeef452
commit 0a2ddfa661
2 changed files with 24 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2009-07-22 Dan Nicolaescu <dann@ics.uci.edu>
* vc-git.el (vc-git-add-signoff): New variable.
(vc-git-checkin): Use it.
(vc-git-toggle-signoff): New function.
(vc-git-extra-menu-map): Bind it to menu.
2009-07-23 Glenn Morris <rgm@gnu.org>
* help-fns.el (describe-variable): Describe ignored and risky local

18
lisp/vc-git.el
View file

@ -118,6 +118,13 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches."
:version "23.1"
:group 'vc)
(defcustom vc-git-add-signoff nil
"Add a Signed-off-by line when committing."
:type 'boolean
:version "23.2"
:group 'vc)
(defvar git-commits-coding-system 'utf-8
"Default coding system for git commits.")
@ -420,7 +427,8 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches."
(defun vc-git-checkin (files rev comment)
(let ((coding-system-for-write git-commits-coding-system))
(vc-git-command nil 0 files "commit" "-m" comment "--only" "--")))
(vc-git-command nil 0 files "commit"
(if vc-git-add-signoff "-s" "") "-m" comment "--only" "--")))
(defun vc-git-find-revision (file rev buffer)
(let ((coding-system-for-read 'binary)
@ -633,12 +641,20 @@ or BRANCH^ (where \"^\" can be repeated)."
(define-key map [git-grep]
'(menu-item "Git grep..." vc-git-grep
:help "Run the `git grep' command"))
(define-key map [git-sig]
'(menu-item "Add Signed-off-by on commit" vc-git-toggle-signoff
:help "Add Add Signed-off-by when commiting (i.e. add the -s flag)"
:button (:toggle . vc-git-add-signoff)))
map))
(defun vc-git-extra-menu () vc-git-extra-menu-map)
(defun vc-git-extra-status-menu () vc-git-extra-menu-map)
(defun vc-git-toggle-signoff ()
(interactive)
(setq vc-git-add-signoff (not vc-git-add-signoff)))
;; Derived from `lgrep'.
(defun vc-git-grep (regexp &optional files dir)
"Run git grep, searching for REGEXP in FILES in directory DIR.