run hooks outside of wgetpaste-buffer

diff --git a/wgetpaste.el b/wgetpaste.el
index 64f8350506b2e731c568a61f385285d0250e3dca..d9e8c69041f6dc4d3a07a4326a8864152e70d587 100644 (file)
--- a/wgetpaste.el
+++ b/wgetpaste.el
@@ -72,7 +72,6 @@
   :group 'wgetpaste)
 
 (defun wgetpaste-buffer ()
-  (run-hooks 'wgetpaste-before-upload-hook)
   (let ((process (make-process
                   :name "wgetpaste"
                   :command `(,wgetpaste-executable ,@wgetpaste-args)
@@ -92,12 +91,14 @@
          (work-buffer (generate-new-buffer " *wgetpaste work buffer*" t)))
     (copy-to-buffer work-buffer (car region) (cdr region))
     (with-current-buffer work-buffer
+      (run-hooks 'wgetpaste-before-upload-hook)
       (wgetpaste-buffer))))
 
 (defun wgetpaste-file (file)
   (interactive (list (read-file-name "wgetpaste file: ")))
   (with-temp-buffer
     (insert-file-contents-literally file)
+    (run-hooks 'wgetpaste-before-upload-hook)
     (wgetpaste-buffer)))
 
 ;; hooks