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.

diff --git a/etc/NEWS b/etc/NEWS
index 3df50154e3ea68d99421ead7612983e85ef999ce..cd1e46bb872589e01c9044076e4954153b7ae375 100644 (file)
--- 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 ce8e57df7680d503f8205d29a9a78bb9137afc9b..e0b3b0946268c3f10b5667bb020fc559ecb0af8d 100644 (file)
--- 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