Allow `text-quoting-style' to be `leave', i.e. no translation of quotes.

[gnu-emacs] / src / editfns.c

diff --git a/src/editfns.c b/src/editfns.c
index e267c2f2909afa83b5680c4a7d4d3033a90dd1f8..11a82c3da7359f5f8a2865d50007e5727d5f34fb 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -3974,6 +3974,8 @@ styled_format (ptrdiff_t nargs, Lisp_Object *args, bool message)
       multibyte = true;
 
   int quoting_style = message ? text_quoting_style () : -1;
+  if (quoting_style == LEAVE_QUOTING_STYLE)
+    quoting_style = -1;
 
   /* If we start out planning a unibyte result,
      then discover it has to be multibyte, we jump back to retry.  */