diff options
| author | Paul Eggert | 2015-08-02 15:58:02 -0700 |
|---|---|---|
| committer | Paul Eggert | 2015-08-02 15:58:31 -0700 |
| commit | fa10e77790a207aeabf354c9f5667b3dbde55bb2 (patch) | |
| tree | 9ab7b0e8bbd340d76f34583aeaa7721c7f59008f /lisp | |
| parent | fc9206b73a254a400245578b94542cfe82c68e9c (diff) | |
| download | emacs-fa10e77790a207aeabf354c9f5667b3dbde55bb2.tar.gz emacs-fa10e77790a207aeabf354c9f5667b3dbde55bb2.zip | |
Redo text-quoting-style variable
Rename help-quote-translation to text-quoting-style,
and use symbols rather than characters as values.
This follows suggestions along these lines by Alan Mackenzie in:
http://lists.gnu.org/archive/html/emacs-devel/2015-06/msg00343.html
and by Drew Adams in:
http://lists.gnu.org/archive/html/emacs-devel/2015-08/msg00048.html
* doc/lispref/help.texi (Keys in Documentation)
* etc/NEWS:
* lisp/cus-start.el (standard):
* src/doc.c (Fsubstitute_command_keys, syms_of_doc):
Document and/or implement the new behavior instead of the old.
(syms_of_doc): New symbols 'grave' and 'straight'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/cus-start.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 69dbf0d0c57..7a37198fb2c 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el | |||
| @@ -221,14 +221,16 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of | |||
| 221 | (no-redraw-on-reenter display boolean) | 221 | (no-redraw-on-reenter display boolean) |
| 222 | 222 | ||
| 223 | ;; doc.c | 223 | ;; doc.c |
| 224 | (help-quote-translation help | 224 | (text-quoting-style |
| 225 | (choice | 225 | help |
| 226 | (character :tag "Quote with curved quotes" | 226 | (choice |
| 227 | :value ?‘) | 227 | (const :tag "Quote with curved single quotes" curve) |
| 228 | (character :tag "Quote 'like this'" :value ?\') | 228 | (const :tag "Quote with straight apostrophes 'like this'" |
| 229 | (character :tag "Quote `like this'" :value ?\`) | 229 | straight) |
| 230 | (const :tag "Quote with curved quotes if displayable, 'like this' otherwise" nil)) | 230 | (const :tag "Quote with grave accent and apostrophe `like this'" |
| 231 | "25.1") | 231 | grave) |
| 232 | (const :tag "Use curved quotes if displayable, grave accent and apostrophe otherwise" nil)) | ||
| 233 | "25.1") | ||
| 232 | ;; dosfns.c | 234 | ;; dosfns.c |
| 233 | (dos-display-scancodes display boolean) | 235 | (dos-display-scancodes display boolean) |
| 234 | (dos-hyper-key keyboard integer) | 236 | (dos-hyper-key keyboard integer) |