Treat error strings as help

* src/print.c (print_error_message): Translate quotes and command
keys in errmsg so that users see, e.g., "Symbol’s value as
variable is void: foo" when text-quoting-style is curved.

diff --git a/src/print.c b/src/print.c
index af615749f376fbb6a099333d106e70e6e9233423..2d4dca7a42a91e196a1aae5d92a5f972cb791bfa 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -940,7 +940,7 @@ print_error_message (Lisp_Object data, Lisp_Object stream, const char *context,
     if (!STRINGP (errmsg))
       write_string_1 ("peculiar error", stream);
     else if (SCHARS (errmsg))
-      Fprinc (errmsg, stream);
+      Fprinc (Fsubstitute_command_keys (errmsg), stream);
     else
       sep = NULL;