[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 1a3518e: Display replacement quotes with shadow gly
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 1a3518e: Display replacement quotes with shadow glyphs |
Date: |
Tue, 01 Sep 2015 16:18:52 +0000 |
branch: master
commit 1a3518e7c361a9ceaa017c1334a83d14e0651a4e
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
Display replacement quotes with shadow glyphs
* lisp/startup.el (command-line): When displaying ASCII
replacements for curved quotes, use a shadow glyph instead of a
regular one, to avoid ambiguity.
---
lisp/startup.el | 5 +++--
1 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/startup.el b/lisp/startup.el
index 8c63ed2..3e29739 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1018,11 +1018,12 @@ please check its value")
(setq no-blinking-cursor t))
;; If curved quotes don't work, display ASCII approximations.
- (dolist (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))))
+ (aset standard-display-table (car char-repl)
+ (vector (make-glyph-code (cdr char-repl) 'shadow)))))
(setq internal--text-quoting-flag t)
;; Re-evaluate predefined variables whose initial value depends on
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 1a3518e: Display replacement quotes with shadow glyphs,
Paul Eggert <=