diff options
| author | Lars Ingebrigtsen | 2019-06-17 10:35:05 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-17 11:25:34 +0200 |
| commit | c89dc27c2c2157dd1704f9e4ab7b9adeb4d232da (patch) | |
| tree | ef0959a4bee79c4c61401c419352f17537c95a80 | |
| parent | c0288145895f6addd37ecb6585ffa0f4733b2328 (diff) | |
| download | emacs-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.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))))) |