Fix Clipboard issue for macOS and Windows

alphapapa · Dec 11, 2023 · 5ffdfd9 · 5ffdfd9
1 parent 624e7b4
commit 5ffdfd9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/org-web-tools.el b/org-web-tools.el
@@ -449,7 +449,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 (append (list (gui-get-selection 'CLIPBOARD))
+  (cl-loop for item in (cons (current-kill 0)
                                kill-ring)
            when (and item (string-match (rx bol "http" (optional "s") "://") item))
            return item))