From: Stefan Kangas <stefankangas@gmail.com>
Date: Sat, 15 Mar 2025 18:26:31 +0000 (+0100)
Subject: Use substitute-quotes for checkdoc errors
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69ab667727efbadc442799ffbd39d50a1fbe92c3;p=emacs.git

Use substitute-quotes for checkdoc errors

* lisp/emacs-lisp/checkdoc.el (checkdoc-create-error): Use
substitute-quotes.

(cherry picked from commit dec21bcc9997780a9c56e4eb7f718fd64d8c32ec)
---

diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index e772c3035c3..7dd0984b541 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -1265,7 +1265,7 @@ generating a buffered list of errors.")
   "Used to create the return error text returned from all engines.
 TEXT, START, END and FIX conform to `checkdoc-create-error-function',
 which see."
-  (funcall checkdoc-create-error-function text start end fix))
+  (funcall checkdoc-create-error-function (substitute-quotes text) start end fix))
 
 (defun checkdoc--create-error-for-checkdoc (text start end &optional fix)
   "Create an error for Checkdoc.