Switch to current-kill from gui-get-selection

alphapapa · Dec 10, 2023 · 8905482 · 8905482
1 parent d433220
commit 8905482
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/org-web-tools.el b/org-web-tools.el
@@ -449,10 +449,8 @@ 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 (append (list (if (eq system-type 'darwin)
-					 (current-kill 0)
-					 (gui-get-selection 'CLIPBOARD)))
-				     kill-ring)
+  (cl-loop for item in (append (list (current-kill 0))
+                               kill-ring)
            when (and item (string-match (rx bol "http" (optional "s") "://") item))
            return item))