branch: elpa/gptel
commit ef24f5f50bdad336ed0f28a0a8a7a0ef2b79c1bf
Author: Karthik Chikmagalur <[email protected]>
Commit: Karthik Chikmagalur <[email protected]>
gptel-transient: Escape org markup when inserting elsewhere
* gptel-transient.el (gptel--suffix-send): When inserting a prompt
region from one buffer into an Org buffer via gptel-menu's
redirection options, escape Org markup in the region first.
---
gptel-transient.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/gptel-transient.el b/gptel-transient.el
index 9803d77f16f..0c0853f70dc 100644
--- a/gptel-transient.el
+++ b/gptel-transient.el
@@ -31,6 +31,7 @@
(declare-function ediff-regions-internal "ediff")
(declare-function ediff-make-cloned-buffer "ediff-utils")
+(declare-function org-escape-code-in-string "org-src")
;; * Helper functions and vars
@@ -1687,10 +1688,13 @@ This sets the variable `gptel-include-tool-results',
which see."
(if (consp reduced-prompt);either (region . prompt) or
prompt
(concat (and (car reduced-prompt)
(concat "#+begin_src "
(gptel--strip-mode-suffix major-mode)
- "\n" (car reduced-prompt)
"\n#+end_src\n\n"))
+ "\n" (org-escape-code-in-string
(car reduced-prompt))
+ "\n#+end_src\n\n"))
(cdr reduced-prompt))
(concat "#+begin_src " (gptel--strip-mode-suffix
major-mode)
- "\n" (or (cdr-safe reduced-prompt)
reduced-prompt) "\n#+end_src"))))
+ "\n" (org-escape-code-in-string
+ (or (cdr-safe reduced-prompt)
reduced-prompt))
+ "\n#+end_src"))))
(t (setq reduced-prompt
(if (consp reduced-prompt);either (region . prompt) or
prompt
(concat (and (car reduced-prompt)
