From 3495cefcf67e508152097a53e6505f214e46fa9e Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 15 Nov 2019 10:04:23 +0100 Subject: [PATCH] Avoid using subr-x function * lisp/vc/vc-hg.el (vc-hg-retrieve-tag): Avoid using subr-x function (bug#38216). --- lisp/vc/vc-hg.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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." (defun vc-hg-retrieve-tag (dir name _update) "Retrieve the version tagged by NAME of all registered files at or below DIR." (let ((default-directory dir)) - (vc-hg-command nil 0 nil "update" (unless (string-empty-p name) name)) + (vc-hg-command nil 0 nil "update" (and (not (equal name "")) + name)) ;; TODO: update *vc-change-log* buffer so can see @ if --graph )) -- 2.39.5