From 08b2538443fc3f483788b12dcb41715a88e40741 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Thu, 2 Jul 2015 09:29:51 -0700 Subject: [PATCH] =?utf8?q?-batch=20should=20not=20affect=20=E2=80=98?= =?utf8?q?=E2=80=99=20->=20`'=20display?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 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 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. -- 2.39.2