Translate undisplayable ‘ to `

* doc/lispref/help.texi (Keys in Documentation):
* lisp/international/mule-cmds.el (set-locale-environment):
* lisp/term/w32console.el (terminal-init-w32console):
* src/doc.c (Fsubstitute_command_keys, Vhelp_quote_translation):
If ‘ is not displayable, transliterate it to `, not to '.  See:
http://lists.gnu.org/archive/html/emacs-devel/2015-06/msg00542.html

1 files changed, 3 insertions, 3 deletions

diff --git a/src/doc.c b/src/doc.c
index d2d3c8dd9c1..655b9117d6d 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -761,8 +761,8 @@ Otherwise, return a new string.  */)
       Lisp_Object dv = DISP_CHAR_VECTOR (XCHAR_TABLE (Vstandard_display_table),
                                          LEFT_SINGLE_QUOTATION_MARK);
       if (VECTORP (dv) && ASIZE (dv) == 1
-          && EQ (AREF (dv, 0), make_number ('\'')))
-        quote_translation = apostrophe;
+          && EQ (AREF (dv, 0), make_number ('`')))
+        quote_translation = grave_accent;
     }
 
   multibyte = STRING_MULTIBYTE (string);
@@ -1040,7 +1040,7 @@ Quote \\=‘like this\\=’ if the value is ?\\=‘ (left single quotation mark)
 Quote 'like this' if the value is ?' (apostrophe).
 Quote \\=`like this' if the value is ?\\=` (grave accent).
 The default value is nil, which means quote with left single quotation mark
-if displayable, and with apostrophe otherwise.  */);
+if displayable, and with grave accent otherwise.  */);
   Vhelp_quote_translation = Qnil;
 
   defsubr (&Sdocumentation);