Interactive r for pasting region

10 years ago · 768887679f
parent 015bb9de15
commit 768887679f
1 changed files with 3 additions and 3 deletions
--- a/webpaste.el
+++ b/webpaste.el
@ -173,12 +173,12 @@ When we run out of providers to try, it will restart since


 ;;;###autoload
-(defun webpaste-paste-region ()
+(defun webpaste-paste-region (point mark)
  "Paste selected region to some paste service."
-  (interactive)
+  (interactive "r")

  ;; Extract the buffer contents with buffer-substring and paste it
-  (webpaste-paste-text (buffer-substring (mark) (point))))
+  (webpaste-paste-text (buffer-substring point mark)))


 ;;;###autoload