From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 1 Sep 2015 16:18:12 +0000 (-0700)
Subject: Display replacement quotes with shadow glyphs
X-Git-Tag: emacs-25.0.90~1228^2~7
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a3518e7c361a9ceaa017c1334a83d14e0651a4e;p=emacs.git

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.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 8c63ed263c2..3e2973981ec 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