Change: (org-web-tools--get-first-url) Use string-match-p

alphapapa · Dec 13, 2023 · 2504583 · 2504583
1 parent 544b000
commit 2504583
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/org-web-tools.el b/org-web-tools.el
@@ -450,7 +450,7 @@ HTML."
 (defun org-web-tools--get-first-url ()
   "Return URL in clipboard, or first URL in the `kill-ring', or nil if none."
   (cl-loop for item in (cons (current-kill 0) kill-ring)
-           when (and item (string-match (rx bol "http" (optional "s") "://") item))
+           when (and item (string-match-p (rx bol "http" (optional "s") "://") item))
            return item))
 
 (declare-function org-element-property "org-element")