diff options
| author | Tom Tromey | 2017-02-13 17:24:04 -0700 |
|---|---|---|
| committer | Tom Tromey | 2017-02-19 20:59:35 -0700 |
| commit | a4c3227230fbdbcb324313b6aae067ad284f8239 (patch) | |
| tree | 56680ead51146e516817a6e976a67cace7a1d6bb | |
| parent | e7b0dac11356f4f343f0441ce2078e994e1a7219 (diff) | |
| download | emacs-a4c3227230fbdbcb324313b6aae067ad284f8239.tar.gz emacs-a4c3227230fbdbcb324313b6aae067ad284f8239.zip | |
Remove stale comments from vc-git and vc-hg
* lisp/vc/vc-git.el (vc-git-retrieve-tag): Remove comment.
* lisp/vc/vc-hg.el (vc-hg-retrieve-tag): Remove comment.
| -rw-r--r-- | lisp/vc/vc-git.el | 4 | ||||
| -rw-r--r-- | lisp/vc/vc-hg.el | 3 |
2 files changed, 2 insertions, 5 deletions
diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index 0f58892eb4e..8a22d747b7d 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el | |||
| @@ -1240,9 +1240,7 @@ This requires git 1.8.4 or later, for the \"-L\" option of \"git log\"." | |||
| 1240 | 1240 | ||
| 1241 | (defun vc-git-retrieve-tag (dir name _update) | 1241 | (defun vc-git-retrieve-tag (dir name _update) |
| 1242 | (let ((default-directory dir)) | 1242 | (let ((default-directory dir)) |
| 1243 | (vc-git-command nil 0 nil "checkout" name) | 1243 | (vc-git-command nil 0 nil "checkout" name))) |
| 1244 | ;; FIXME: update buffers if `update' is true | ||
| 1245 | )) | ||
| 1246 | 1244 | ||
| 1247 | 1245 | ||
| 1248 | ;;; MISCELLANEOUS | 1246 | ;;; MISCELLANEOUS |
diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index 2f9487ca2e7..8a2b07718cf 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el | |||
| @@ -76,7 +76,7 @@ | |||
| 76 | ;; - annotate-extract-revision-at-line () OK | 76 | ;; - annotate-extract-revision-at-line () OK |
| 77 | ;; TAG SYSTEM | 77 | ;; TAG SYSTEM |
| 78 | ;; - create-tag (dir name branchp) OK | 78 | ;; - create-tag (dir name branchp) OK |
| 79 | ;; - retrieve-tag (dir name update) OK FIXME UPDATE BUFFERS | 79 | ;; - retrieve-tag (dir name update) OK |
| 80 | ;; MISCELLANEOUS | 80 | ;; MISCELLANEOUS |
| 81 | ;; - make-version-backups-p (file) ?? | 81 | ;; - make-version-backups-p (file) ?? |
| 82 | ;; - previous-revision (file rev) OK | 82 | ;; - previous-revision (file rev) OK |
| @@ -562,7 +562,6 @@ Optional arg REVISION is a revision to annotate from." | |||
| 562 | "Retrieve the version tagged by NAME of all registered files at or below DIR." | 562 | "Retrieve the version tagged by NAME of all registered files at or below DIR." |
| 563 | (let ((default-directory dir)) | 563 | (let ((default-directory dir)) |
| 564 | (vc-hg-command nil 0 nil "update" name) | 564 | (vc-hg-command nil 0 nil "update" name) |
| 565 | ;; FIXME: update buffers if `update' is true | ||
| 566 | ;; TODO: update *vc-change-log* buffer so can see @ if --graph | 565 | ;; TODO: update *vc-change-log* buffer so can see @ if --graph |
| 567 | )) | 566 | )) |
| 568 | 567 | ||