[Emacs-diffs] master 9c13a81: Improve warning about purecopy of strings with properties

[Eli Zaretskii]

branch: master
commit 9c13a81a9e1aa74901cd958d7adb3ca71966dbef
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Improve warning about purecopy of strings with properties
    
    * src/alloc.c (purecopy): Show the offending string with the
    warning about removing its text properties.
---
 src/alloc.c |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/src/alloc.c b/src/alloc.c
index 9ac3ad8..050097c 100644
--- 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));