diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-09-01 09:18:12 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-09-01 09:18:48 -0700 |
| commit | 1a3518e7c361a9ceaa017c1334a83d14e0651a4e (patch) | |
| tree | 4c82c7bcacea59c4e01cfd96073808e5b33f3495 | |
| parent | da88ad6cb1e98ef9f28462648ab53d81d22dd189 (diff) | |
| download | emacs-1a3518e7c361a9ceaa017c1334a83d14e0651a4e.tar.gz | |
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.
| -rw-r--r-- | lisp/startup.el | 5 |
1 files changed, 3 insertions, 2 deletions
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 |