From 56d45378796b881b638671655164a16bb8ad8a57 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 10 Oct 2014 19:23:04 -0300
Subject: '$c' in 'lua_pushfstring' prints non-printable characters with their
 codes

---
 lobject.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lobject.c')

diff --git a/lobject.c b/lobject.c
index eb7cb28a..ebf3cf05 100644
--- a/lobject.c
+++ b/lobject.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lobject.c,v 2.90 2014/10/01 11:52:33 roberto Exp roberto $
+** $Id: lobject.c,v 2.91 2014/10/04 22:57:10 roberto Exp roberto $
 ** Some generic functions over Lua objects
 ** See Copyright Notice in lua.h
 */
@@ -377,7 +377,10 @@ const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp) {
       }
       case 'c': {
         char buff = cast(char, va_arg(argp, int));
-        pushstr(L, &buff, 1);
+        if (lisprint(cast_uchar(buff)))
+          pushstr(L, &buff, 1);
+        else  /* non-printable character; print its code */
+          luaO_pushfstring(L, "<\\%d>", cast_uchar(buff));
         break;
       }
       case 'd': {
-- 
cgit v1.2.3-55-g6feb