diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2015-08-13 17:36:38 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2015-08-13 17:36:38 +0300 |
| commit | 9c13a81a9e1aa74901cd958d7adb3ca71966dbef (patch) | |
| tree | 2a367688efeead3d71a79fe84ea5be4170f274e2 | |
| parent | e4de91d8dd2a06125140fb42772ec84a2f7ab290 (diff) | |
| download | emacs-9c13a81a9e1aa74901cd958d7adb3ca71966dbef.tar.gz | |
Improve warning about purecopy of strings with properties
* src/alloc.c (purecopy): Show the offending string with the
warning about removing its text properties.
| -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)); |