diff options
| author | John Turner <jturner.usa@gmail.com> | 2024-03-20 14:45:01 -0400 |
|---|---|---|
| committer | John Turner <jturner.usa@gmail.com> | 2024-03-20 14:45:01 -0400 |
| commit | a1b1eecdc14efd3b6ee0f0074854258bbe401488 (patch) | |
| tree | aa446dd47ed1bbd5c148a65a00ecd165e4d52423 | |
| parent | 1113a017828dbcacb635f337a20298c72989dacd (diff) | |
| download | wgetpaste.el-a1b1eecdc14efd3b6ee0f0074854258bbe401488.tar.gz | |
run hooks outside of wgetpaste-buffer
| -rw-r--r-- | wgetpaste.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |