This adds names to mutexes. This seemed like a nice debugging

extension.

1 files changed, 7 insertions, 3 deletions

diff --git a/src/print.c b/src/print.c
index 42e7241ecba..b14a769dc74 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1957,10 +1957,14 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
         }
       else if (MUTEXP (obj))
         {
-          int len;
           strout ("#<mutex ", -1, -1, printcharfun);
-          len = sprintf (buf, "%p", XMUTEX (obj));
-          strout (buf, len, len, printcharfun);
+          if (STRINGP (XMUTEX (obj)->name))
+            print_string (XMUTEX (obj)->name, printcharfun);
+          else
+            {
+              int len = sprintf (buf, "%p", XMUTEX (obj));
+              strout (buf, len, len, printcharfun);
+            }
           PRINTCHAR ('>');
         }
       else