>From 1a3518e7c361a9ceaa017c1334a83d14e0651a4e Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 1 Sep 2015 09:18:12 -0700 Subject: [PATCH] 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 file 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 -- 2.1.4