From 434e105886f07af9d5b2f7366679a8370a23538d Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 16 Feb 2022 23:18:28 -0600
Subject: Change,,, whatever

---
 lisp/+flyspell-correct.el | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/lisp/+flyspell-correct.el b/lisp/+flyspell-correct.el
index 473b054..b995b7e 100644
--- a/lisp/+flyspell-correct.el
+++ b/lisp/+flyspell-correct.el
@@ -2,11 +2,20 @@
 
 ;;; Code:
 
-(defun +flyspell-correct-buffer (&rest _)  ; Enables this to be run as a hook
-  "Run `flyspell-correct-wrapper' on all misspelled words in the buffer."
-  (interactive)
+(defun +flyspell-correct-buffer (&optional prefix)
+  "Run `flyspell-correct-wrapper' on all misspelled words in the buffer.
+With PREFIX, prompt to change the current dictionary."
+  (interactive "P")
+  (when prefix
+    (let ((current-prefix-arg nil))
+      (call-interactively #'ispell-change-dictionary)))
   (+with-message "Checking spelling"
     (flyspell-correct-move (point-min) :forward :rapid)))
 
+(defun +flyspell-correct-buffer-h (&rest _)
+  "Run `+flyspell-correct-buffer'.
+This is suitable for placement in a hook."
+  (+flyspell-correct-buffer))
+
 (provide '+flyspell-correct)
 ;;; +flyspell-correct.el ends here
-- 
cgit 1.4.1-21-gabe81