master 8538108: Strip text properties from the default string

[Dmitry Gutov]

branch: master
commit 853810813283662a71358a11c128c0a1d224197e
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    Strip text properties from the default string
    
    * lisp/progmodes/project.el (project--read-regexp):
    Strip text properties from the default string (bug#47012).
---
 lisp/progmodes/project.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index d59da24..67e827e 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -775,7 +775,7 @@ pattern to search for."
     xrefs))
 
 (defun project--read-regexp ()
-  (let ((sym (thing-at-point 'symbol)))
+  (let ((sym (thing-at-point 'symbol t)))
     (read-regexp "Find regexp" (and sym (regexp-quote sym)))))
 
 ;;;###autoload