diff options
| author | Charles A. Roelli <charles@aurox.ch> | 2018-03-22 20:33:45 +0100 |
|---|---|---|
| committer | Charles A. Roelli <charles@aurox.ch> | 2018-03-22 20:33:45 +0100 |
| commit | 86d6417bf15b7ad5717dec2112f8616f67b2c9d3 (patch) | |
| tree | 9a245858f1bbaeff65534ca34a9c74d57584efd0 | |
| parent | 311bb33218b860413af699ac84e50fccfc1469c0 (diff) | |
| download | emacs-86d6417bf15b7ad5717dec2112f8616f67b2c9d3.tar.gz emacs-86d6417bf15b7ad5717dec2112f8616f67b2c9d3.tar.bz2 emacs-86d6417bf15b7ad5717dec2112f8616f67b2c9d3.zip | |
Add new command vc-git-stash-delete
* lisp/vc/vc-git.el (vc-git-stash-delete): New command, in line with
vc-git-stash-delete-at-point.
(vc-git-extra-menu-map): Add menu entry.
| -rw-r--r-- | lisp/vc/vc-git.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index bf1b0503422..88052d7749b 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -1388,6 +1388,9 @@ This requires git 1.8.4 or later, for the \"-L\" option of \"git log\"." (define-key map [git-grep] '(menu-item "Git grep..." vc-git-grep :help "Run the `git grep' command")) + (define-key map [git-ds] + '(menu-item "Delete Stash..." vc-git-stash-delete + :help "Delete a stash")) (define-key map [git-sn] '(menu-item "Stash a Snapshot" vc-git-stash-snapshot :help "Stash the current state of the tree and keep the current state")) @@ -1518,6 +1521,12 @@ This command shares argument histories with \\[rgrep] and \\[grep]." (vc-git-command "*vc-git-stash*" 0 nil "stash" "pop" "-q" name) (vc-resynch-buffer (vc-git-root default-directory) t t)) +(defun vc-git-stash-delete (name) + "Delete stash NAME." + (interactive (list (vc-git-stash-read "Delete stash: "))) + (vc-git-command "*vc-git-stash*" 0 nil "stash" "drop" "-q" name) + (vc-resynch-buffer (vc-git-root default-directory) t t)) + (defun vc-git-stash-snapshot () "Create a stash with the current tree state." (interactive) |