From a0cfd563d26661ce2a509e525487644fd421966b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 17 May 2015 18:33:22 +0300 Subject: [PATCH] MS-Windows followup for ASCIIfication of curved quotes * lisp/term/w32console.el (terminal-init-w32console): Repeat the test for curved quotes being displayable, after switching the terminal encoding. (Bug#20545) --- lisp/term/w32console.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/term/w32console.el b/lisp/term/w32console.el index a7056cd5edf..29ab2f16e1c 100644 --- a/lisp/term/w32console.el +++ b/lisp/term/w32console.el @@ -65,7 +65,15 @@ (when oem-cs-p (set-keyboard-coding-system oem-code-page-coding) (set-terminal-coding-system - (if oem-o-cs-p oem-code-page-output-coding oem-code-page-coding)))) + (if oem-o-cs-p oem-code-page-output-coding oem-code-page-coding)) + ;; Since we changed the terminal encoding, we need to repeat + ;; the test for Unicode quotes being displayable. + (dolist (char-repl + '((?‘ . [?\']) (?’ . [?\']) (?“ . [?\"]) (?” . [?\"]))) + (when (not (char-displayable-p (car char-repl))) + (or standard-display-table + (setq standard-display-table (make-display-table))) + (aset standard-display-table (car char-repl) (cdr char-repl)))))) (let* ((colors w32-tty-standard-colors) (color (car colors))) (tty-color-clear) -- 2.39.5