From c89dc27c2c2157dd1704f9e4ab7b9adeb4d232da Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 17 Jun 2019 10:35:05 +0200 Subject: [PATCH] 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. --- lisp/vc/vc-git.el | 4 ++++ 1 file changed, 4 insertions(+) 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]." (declare-function vc-dir-refresh "vc-dir" ()) (defun vc-git-stash-delete-at-point () + "Delete the stash at point." (interactive) (let ((stash (vc-git-stash-get-at-point (point)))) (when (y-or-n-p (format "Remove stash %s ? " stash)) @@ -1573,16 +1574,19 @@ This command shares argument histories with \\[rgrep] and \\[grep]." (vc-dir-refresh)))) (defun vc-git-stash-show-at-point () + "Show the stash at point." (interactive) (vc-git-stash-show (format "stash@%s" (vc-git-stash-get-at-point (point))))) (defun vc-git-stash-apply-at-point () + "Apply the stash at point." (interactive) (let (vc-dir-buffers) ; Small optimization. (vc-git-stash-apply (format "stash@%s" (vc-git-stash-get-at-point (point))))) (vc-dir-refresh)) (defun vc-git-stash-pop-at-point () + "Pop the stash at point." (interactive) (let (vc-dir-buffers) ; Likewise. (vc-git-stash-pop (format "stash@%s" (vc-git-stash-get-at-point (point))))) -- 2.39.5