mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Add doc strings to the -at-point commands in vc-git

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2019-06-17 10:35:05 +02:00
parent c028814589
commit c89dc27c2c
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/vc/vc-git.el
View file

@ -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)))))