Add gptel--get-prompt-from-region function

Signed-off-by: Eval EXEC <[email protected]>

Author: eval-exec

gptel-transient.el

@@ -651,6 +651,12 @@ Or in an extended conversation:
   :transient t)
 
 
+
+(defun gptel--get-prompt-from-region()
+  "Get the prompt from the region."
+  (buffer-substring-no-properties
+   (region-beginning) (region-end)))
+
 ;; * Transient Suffixes
 
 ;; ** Suffix to send prompt
@@ -678,8 +684,7 @@ Or in an extended conversation:
            (read-string
             (format "Ask %s: " (gptel-backend-name gptel-backend))
             (and (use-region-p)
-                 (buffer-substring-no-properties
-                  (region-beginning) (region-end)))))
+                 (gptel--get-prompt-from-region))))
           ((member "y" args)
            (unless (car-safe kill-ring)
              (user-error "`kill-ring' is empty!  Nothing to send"))