From 9c13a81a9e1aa74901cd958d7adb3ca71966dbef Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 13 Aug 2015 17:36:38 +0300 Subject: [PATCH] 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 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/alloc.c b/src/alloc.c index 9ac3ad84131..050097c905a 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)); -- 2.39.2