From a1b1eecdc14efd3b6ee0f0074854258bbe401488 Mon Sep 17 00:00:00 2001 From: John Turner Date: Wed, 20 Mar 2024 14:45:01 -0400 Subject: [PATCH] run hooks outside of wgetpaste-buffer --- wgetpaste.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.5