From: John Turner <jturner.usa@gmail.com>
Date: Wed, 20 Mar 2024 18:45:01 +0000 (-0400)
Subject: run hooks outside of wgetpaste-buffer
X-Git-Url: https://jturnerusa.dev/gitweb/?a=commitdiff_plain;h=a1b1eecdc14efd3b6ee0f0074854258bbe401488;p=wgetpaste.el

run hooks outside of wgetpaste-buffer
---

diff --git a/wgetpaste.el b/wgetpaste.el
index 64f8350..d9e8c69 100644
--- 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