From: Eli Zaretskii Date: Sun, 17 May 2015 15:33:22 +0000 (+0300) Subject: MS-Windows followup for ASCIIfication of curved quotes X-Git-Tag: emacs-25.0.90~2074 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a0cfd563d26661ce2a509e525487644fd421966b;p=emacs.git 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) --- 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)