From: Paul Eggert <eggert@cs.ucla.edu>
Date: Thu, 2 Jul 2015 16:29:51 +0000 (-0700)
Subject: -batch should not affect ‘’ -> `' display
X-Git-Tag: emacs-25.0.90~1575
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08b2538443fc3f483788b12dcb41715a88e40741;p=emacs.git

-batch should not affect ‘’ -> `' display

* lisp/startup.el (command-line): Do the ‘’ -> `' check even if
-batch (Bug#20926).
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 4f1e3150abc..cfe22690df8 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.