From b4cd028606a702b0c583e2a49e1d3016b283dcf3 Mon Sep 17 00:00:00 2001
From: Elis Axelsson <elis.axelsson@gmail.com>
Date: Sun, 18 Sep 2016 22:34:13 +0200
Subject: [PATCH] Added function to paste entire buffer

---
 webpaste.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/webpaste.el b/webpaste.el
index 610d53a..d259c70 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -40,6 +40,15 @@
   (let ((text (buffer-substring (mark) (point))))
     (message text)))
 
+;; The function to paste a buffer
+(defun webpaste-paste-buffer ()
+  "Paste current buffer to some paste service."
+  (interactive)
+
+  (save-mark-and-excursion
+   (set-mark (point-min))               ; Set mark on point-min
+   (goto-char (point-max))              ; Go to point-max
+   (webpaste-paste-region)))            ; Paste region
 
 (provide 'webpaste)