Improve warning about purecopy of strings with properties

* src/alloc.c (purecopy): Show the offending string with the
warning about removing its text properties.

diff --git a/src/alloc.c b/src/alloc.c
index 9ac3ad84131af4ddf81bc85b577305456993368e..050097c905a4b361652b25ce98da7324b693c73e 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -5353,7 +5353,8 @@ purecopy (Lisp_Object obj)
   else if (STRINGP (obj))
     {
       if (XSTRING (obj)->intervals)
-       message ("Dropping text-properties when making string pure");
+       message_with_string ("Dropping text-properties while making string `%s' pure",
+                            obj, true);
       obj = make_pure_string (SSDATA (obj), SCHARS (obj),
                              SBYTES (obj),
                              STRING_MULTIBYTE (obj));