From: Dmitry Gutov <dgutov@yandex.ru>
Date: Tue, 9 Mar 2021 02:06:01 +0000 (+0200)
Subject: Strip text properties from the default string
X-Git-Tag: emacs-28.0.90~3357
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=853810813283662a71358a11c128c0a1d224197e;p=emacs.git

Strip text properties from the default string

* lisp/progmodes/project.el (project--read-regexp):
Strip text properties from the default string (bug#47012).
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index d59da2496a7..67e827eea43 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