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>.

diff --git a/src/keyboard.c b/src/keyboard.c
index 6a8c33ae3b60b00e7704b0e3f6b9b64628152cf8..f6139b30e7e5ec95fdd0548c9d401f2d6fb0434b 100644 (file)
--- 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;
 }