diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-17 12:00:54 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-17 12:01:26 -0700 |
| commit | 7f2b98d09d113e0f9b1fffb0524622adfafe3ac4 (patch) | |
| tree | 0bf33b3ebf47f3fcbec56119f043dde60227efcd /lisp/startup.el | |
| parent | 481859ba71253725f4aed4877b89123e11aaef0c (diff) | |
| download | emacs-7f2b98d09d113e0f9b1fffb0524622adfafe3ac4.tar.gz | |
Curved quotes in --batch diagnostics in non-UTF-8
When run with --batch, check that curved quotes are compatible with
the system locale before outputting them in diagnostics.
Problem reported by Eli Zaretskii in:
http://lists.gnu.org/archive/html/emacs-devel/2015-08/msg00594.html
* lisp/startup.el (command-line): Set internal--text-quoting-flag
after the standard display table is initialized.
* src/doc.c (default_to_grave_quoting_style): New function.
(text_quoting_style): Use it.
(text_quoting_flag): New static var, visible to Lisp as
internal--text-quoting-flag.
* src/emacs.c: Include <wchar.h> if available.
(using_utf8): New function.
(main): Use it to initialize text_quoting_flag.
* src/regex.h (btowc) [WIDE_CHAR_SUPPORT && emacs]:
Don't define, as it's not needed and it clashes with wchar.h.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 3248a99e3d9..ec159c2264b 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1023,6 +1023,7 @@ please check its value") (or standard-display-table (setq standard-display-table (make-display-table))) (aset standard-display-table (car char-repl) (cdr char-repl)))) + (setq internal--text-quoting-flag t) ;; Re-evaluate predefined variables whose initial value depends on ;; the runtime context. |