diff options
| -rw-r--r-- | src/alloc.c | 3 |
1 files changed, 2 insertions, 1 deletions
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)); |