Allow `text-quoting-style' to be `leave', i.e. no translation of quotes.
commit32f5bf0c29bbad6524f71079e4380b8156289551
authorAlan Mackenzie <acm@muc.de>
Wed, 4 May 2016 19:59:50 +0000 (4 19:59 +0000)
committerAlan Mackenzie <acm@muc.de>
Wed, 4 May 2016 19:59:50 +0000 (4 19:59 +0000)
tree3d9270640d73442c28880296bfd6a16613c1b3d4
parent088acab3831b45e0e0749705226b8680076df4b6
Allow `text-quoting-style' to be `leave', i.e. no translation of quotes.

* lisp/help-fns.el (describe-function-1): Don't set coding system to UTF-8
when text-quoting-style is `leave'.

* src/lisp.h (enum text_quoting_style): Add identifier LEAVE_QUOTING_STYLE.

* src/doc.c (syms_of_doc): New symbol "leave".  Amend doc string of
`text_quoting_style'.
(text_quoting_style): Handle `leave' by returning LEAVE_QUOTING_STYLE.
(Fsubstitute_command_keys): Don't translate quotes when quoting_style is
LEAVE_QUOTING_STYLE.

* src/editfns.c (styled_format): Set quoting_style to -1 when
text-quoting-style is `leave'.
lisp/help-fns.el
src/doc.c
src/editfns.c
src/lisp.h