bug#20926: 25.0.50; Quotation marks always display as hard quotes

[Paul Eggert <eggert@cs.ucla.edu>]

[-- Attachment #1: Type: text/plain, Size: 500 bytes --]

Eli Zaretskii wrote:
> messages and documentation displayed in batch mode might be illegible
> on some text terminals.

Thanks, I hadn't thought of that, and overoptimized.  Easy enough to do the 
check even if -batch.  I installed the attached patch.

> How is the locale's codeset relevant here?  The issue was encountered
> in a GUI session, where that should be unimportant.

Yes, but the bug was that Emacs hadn't initialized the GUI yet and so 
char-displayable-p acted as if in a tty session.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-batch-should-not-affect-display.patch --]
[-- Type: text/x-diff; name="0001-batch-should-not-affect-display.patch", Size: 1603 bytes --]

From 28217db57c7f1853a4c98ed0a32c2051a2a37807 Mon Sep 17 00:00:00 2001
From: Paul Eggert <eggert@cs.ucla.edu>
Date: Thu, 2 Jul 2015 09:29:51 -0700
Subject: [PATCH] =?UTF-8?q?-batch=20should=20not=20affect=20=E2=80=98?=
 =?UTF-8?q?=E2=80=99=20->=20`'=20display?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* lisp/startup.el (command-line): Do the ‘’ -> `' check even if
-batch (Bug#20926).
---
 lisp/startup.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/lisp/startup.el b/lisp/startup.el
index 4f1e315..cfe2269 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1018,12 +1018,11 @@ please check its value")
     (setq no-blinking-cursor t))
 
   ;; If curved quotes don't work, display ASCII approximations.
-  (unless noninteractive
-    (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)))))
+  (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))))
 
   ;; Re-evaluate predefined variables whose initial value depends on
   ;; the runtime context.
-- 
2.1.0