From 694d81f04779ce82c95a457f05681244dd1e6869 Mon Sep 17 00:00:00 2001 From: Chris Bilson Date: Fri, 5 Jul 2024 16:32:16 -0700 Subject: [PATCH] fix unused host parameter in ado-workitem-url, fix doc comment warnings --- org-azuredevops.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/org-azuredevops.el b/org-azuredevops.el index 56ed7d9..b69043e 100644 --- a/org-azuredevops.el +++ b/org-azuredevops.el @@ -141,7 +141,7 @@ which links to a file in repository ." (defun ado-workitem-url (path &optional org host) "Expand a work item link PATH into a URL in AzDevops." (let ((org (or org org-azuredevops-organization)) - (host (or org-azuredevops-host))) + (host (or host org-azuredevops-host))) (concat "https://" host "/" org "/_workitems/edit/" path))) (defun ado-workitem-command (path &optional org host) @@ -252,8 +252,9 @@ which links to PR # in repository ." ;;; Public Functions ;;; ----------------------------------------------------------------------------- (defun org-azuredevops-pullrequest-title-to-link (title) - "Given an AzureDevOps Pull Request TITLE (the 'copy' button to the right of the title on the -pull request view), create a pr: link, preserving the title. Used in pull-request-capture-template.org" + "Given an AzureDevOps Pull Request TITLE (the 'copy' button to the +right of the title on the pull request view), create a pr: link, +preserving the title. Used in pull-request-capture-template.org" (if (string-match "^Pull Request \\([[:digit:]]+\\): \\(.*\\)$" title) (concat "pr:" (match-string 1 title) ": " (match-string 2 title)) title))