Fix segfault with invalid key-translation-map binding

* src/keyboard.c (access_keymap_keyremap): Don't assume an invalid
function is specified as a symbol.  Reported by Perry E. Metzger
<perry@piermont.com>.

1 files changed, 1 insertions, 2 deletions

diff --git a/src/keyboard.c b/src/keyboard.c
index 6a8c33ae3b6..f6139b30e7e 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -9188,8 +9188,7 @@ access_keymap_keyremap (Lisp_Object map, Lisp_Object key, Lisp_Object prompt,
       /* If the function returned something invalid,
          barf--don't ignore it.  */
       if (! (NILP (next) || VECTORP (next) || STRINGP (next)))
-        error ("Function %s returns invalid key sequence",
-               SSDATA (SYMBOL_NAME (tem)));
+        signal_error ("Function returns invalid key sequence", tem);
     }
   return next;
 }