[nongnu] elpa/webpaste 14a1e6e 022/298: Added general function to paste text

[ELPA Syncer]

branch: elpa/webpaste
commit 14a1e6e09220443cb86e09fcd491bf1d2df327e7
Author: Elis Axelsson <elis.axelsson@gmail.com>
Commit: Elis Axelsson <elis.axelsson@gmail.com>

    Added general function to paste text
---
 webpaste.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/webpaste.el b/webpaste.el
index cbbfb55..61fb607 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -52,7 +52,7 @@
   (interactive)
 
   (let ((text (buffer-substring (mark) (point))))
-    (funcall (cdr (car webpaste-providers)) text)))
+    (webpaste-paste-text text)))
 
 
 ;;;###autoload
@@ -66,6 +66,13 @@
    (webpaste-paste-region)))            ; Paste region
 
 
+;; Function to do pasting
+(defun webpaste-paste-text (text)
+  "Paste TEXT to some paste service."
+
+  (funcall (cdr (car webpaste-providers)) text))
+
+
 ;;; Define providers
 (defcustom webpaste-providers
   '(("ix.io" .