Added function to paste entire buffer

10 years ago · b4cd028606
parent ff47ecd028
commit b4cd028606
1 changed files with 9 additions and 0 deletions
--- 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)