aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2019-06-17 10:35:05 +0200
committerLars Ingebrigtsen2019-06-17 11:25:34 +0200
commitc89dc27c2c2157dd1704f9e4ab7b9adeb4d232da (patch)
treeef0959a4bee79c4c61401c419352f17537c95a80
parentc0288145895f6addd37ecb6585ffa0f4733b2328 (diff)
downloademacs-c89dc27c2c2157dd1704f9e4ab7b9adeb4d232da.tar.gz
emacs-c89dc27c2c2157dd1704f9e4ab7b9adeb4d232da.zip
Add doc strings to the -at-point commands in vc-git
* lisp/vc/vc-git.el (vc-git-stash-delete-at-point) (vc-git-stash-show-at-point, vc-git-stash-apply-at-point) (vc-git-stash-pop-at-point): Add doc strings to these commands.
-rw-r--r--lisp/vc/vc-git.el4
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)))))