From 4650aa3523068b83c3d9e6276fe89eb3955ca1e3 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 30 Oct 2019 20:54:44 +0100 Subject: [PATCH] Bind vc-git-stash to a key * lisp/vc/vc-git.el (vc-git-stash-map): Give `vc-git-stash' a keystroke, because it's a useful command. When there are no stashes, there's no way to use that keystroke (since it's only bound on the stash lines), so perhaps that should also be fixed somehow. --- etc/NEWS | 3 +++ lisp/vc/vc-git.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/etc/NEWS b/etc/NEWS index 3df50154e3e..cd1e46bb872 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -876,6 +876,9 @@ This new user option allows customizing the default arguments passed to When some files are marked, only those are stashed. When no files are marked, all modified files are stashed, as before. +*** 'vc-git-stash' has now been bound to the 'C' keystroke in the +stash headers. + *** The new hook 'vc-retrieve-tag-hook' runs after retrieving a tag. --- diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index ce8e57df768..e0b3b094626 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -648,6 +648,7 @@ or an empty string if none." (define-key map "A" 'vc-git-stash-apply-at-point) (define-key map "P" 'vc-git-stash-pop-at-point) (define-key map "S" 'vc-git-stash-snapshot) + (define-key map "C" 'vc-git-stash) map)) (defun vc-git--make-button-text (show count1 count2) @@ -1596,7 +1597,7 @@ This command shares argument histories with \\[rgrep] and \\[grep]." (autoload 'vc-dir-marked-files "vc-dir") (defun vc-git-stash (name) - "Create a stash." + "Create a stash given the name NAME." (interactive "sStash name: ") (let ((root (vc-git-root default-directory))) (when root -- 2.39.5