]> code.delx.au - gnu-emacs/blobdiff - lisp/term/w32console.el
terminal-init-w32console mimicks command-line
[gnu-emacs] / lisp / term / w32console.el
index 95964840c10eb39117300655098177ddbbaed8fd..588568585024f429a5b2c1983024d23f320c1eb2 100644 (file)
@@ -1,6 +1,6 @@
 ;;; w32console.el -- Setup w32 console keys and colors.
 
-;; Copyright (C) 2007-2013 Free Software Foundation, Inc.
+;; Copyright (C) 2007-2015 Free Software Foundation, Inc.
 
 ;; Author: FSF
 ;; Keywords: terminals
        (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.
+          (startup--setup-quote-display)))
   (let* ((colors w32-tty-standard-colors)
          (color (car colors)))
     (tty-color-clear)