[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 08b2538: -batch should not affect ‘’ -> `' display
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 08b2538: -batch should not affect ‘’ -> `' display |
Date: |
Thu, 02 Jul 2015 16:30:18 +0000 |
branch: master
commit 08b2538443fc3f483788b12dcb41715a88e40741
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
-batch should not affect ‘’ -> `' display
* lisp/startup.el (command-line): Do the ‘’ -> `' check even if
-batch (Bug#20926).
---
lisp/startup.el | 11 +++++------
1 files 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 08b2538: -batch should not affect ‘’ -> `' display,
Paul Eggert <=