diff options
| -rw-r--r-- | lisp/vc/vc-git.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index 61c13026cc5..30ec712cfc1 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el | |||
| @@ -1566,6 +1566,7 @@ This command shares argument histories with \\[rgrep] and \\[grep]." | |||
| 1566 | (declare-function vc-dir-refresh "vc-dir" ()) | 1566 | (declare-function vc-dir-refresh "vc-dir" ()) |
| 1567 | 1567 | ||
| 1568 | (defun vc-git-stash-delete-at-point () | 1568 | (defun vc-git-stash-delete-at-point () |
| 1569 | "Delete the stash at point." | ||
| 1569 | (interactive) | 1570 | (interactive) |
| 1570 | (let ((stash (vc-git-stash-get-at-point (point)))) | 1571 | (let ((stash (vc-git-stash-get-at-point (point)))) |
| 1571 | (when (y-or-n-p (format "Remove stash %s ? " stash)) | 1572 | (when (y-or-n-p (format "Remove stash %s ? " stash)) |
| @@ -1573,16 +1574,19 @@ This command shares argument histories with \\[rgrep] and \\[grep]." | |||
| 1573 | (vc-dir-refresh)))) | 1574 | (vc-dir-refresh)))) |
| 1574 | 1575 | ||
| 1575 | (defun vc-git-stash-show-at-point () | 1576 | (defun vc-git-stash-show-at-point () |
| 1577 | "Show the stash at point." | ||
| 1576 | (interactive) | 1578 | (interactive) |
| 1577 | (vc-git-stash-show (format "stash@%s" (vc-git-stash-get-at-point (point))))) | 1579 | (vc-git-stash-show (format "stash@%s" (vc-git-stash-get-at-point (point))))) |
| 1578 | 1580 | ||
| 1579 | (defun vc-git-stash-apply-at-point () | 1581 | (defun vc-git-stash-apply-at-point () |
| 1582 | "Apply the stash at point." | ||
| 1580 | (interactive) | 1583 | (interactive) |
| 1581 | (let (vc-dir-buffers) ; Small optimization. | 1584 | (let (vc-dir-buffers) ; Small optimization. |
| 1582 | (vc-git-stash-apply (format "stash@%s" (vc-git-stash-get-at-point (point))))) | 1585 | (vc-git-stash-apply (format "stash@%s" (vc-git-stash-get-at-point (point))))) |
| 1583 | (vc-dir-refresh)) | 1586 | (vc-dir-refresh)) |
| 1584 | 1587 | ||
| 1585 | (defun vc-git-stash-pop-at-point () | 1588 | (defun vc-git-stash-pop-at-point () |
| 1589 | "Pop the stash at point." | ||
| 1586 | (interactive) | 1590 | (interactive) |
| 1587 | (let (vc-dir-buffers) ; Likewise. | 1591 | (let (vc-dir-buffers) ; Likewise. |
| 1588 | (vc-git-stash-pop (format "stash@%s" (vc-git-stash-get-at-point (point))))) | 1592 | (vc-git-stash-pop (format "stash@%s" (vc-git-stash-get-at-point (point))))) |