diff options
| author | Lars Ingebrigtsen | 2019-11-15 10:04:23 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-11-15 10:05:39 +0100 |
| commit | 3495cefcf67e508152097a53e6505f214e46fa9e (patch) | |
| tree | 50211f789e597bde0eecc7b31e7576258d77e8c5 | |
| parent | fb3dea96b7930a83bba156b5ad9f6fdca72fa7d8 (diff) | |
| download | emacs-3495cefcf67e508152097a53e6505f214e46fa9e.tar.gz emacs-3495cefcf67e508152097a53e6505f214e46fa9e.zip | |
Avoid using subr-x function
* lisp/vc/vc-hg.el (vc-hg-retrieve-tag): Avoid using subr-x
function (bug#38216).
| -rw-r--r-- | lisp/vc/vc-hg.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index 48a7838684a..6ecf9fb41d7 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el | |||
| @@ -578,7 +578,8 @@ Optional arg REVISION is a revision to annotate from." | |||
| 578 | (defun vc-hg-retrieve-tag (dir name _update) | 578 | (defun vc-hg-retrieve-tag (dir name _update) |
| 579 | "Retrieve the version tagged by NAME of all registered files at or below DIR." | 579 | "Retrieve the version tagged by NAME of all registered files at or below DIR." |
| 580 | (let ((default-directory dir)) | 580 | (let ((default-directory dir)) |
| 581 | (vc-hg-command nil 0 nil "update" (unless (string-empty-p name) name)) | 581 | (vc-hg-command nil 0 nil "update" (and (not (equal name "")) |
| 582 | name)) | ||
| 582 | ;; TODO: update *vc-change-log* buffer so can see @ if --graph | 583 | ;; TODO: update *vc-change-log* buffer so can see @ if --graph |
| 583 | )) | 584 | )) |
| 584 | 585 | ||