(set-specifier current-display-table nil) 
 
(loop for (actual desired) 
  in '((?\x80 ?\u20AC) ;; EURO SIGN 
       (?\x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK 
       (?\x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK 
       (?\x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK 
       (?\x85 ?\u2026) ;; HORIZONTAL ELLIPSIS 
       (?\x86 ?\u2020) ;; DAGGER 
       (?\x87 ?\u2021) ;; DOUBLE DAGGER 
       (?\x88 ?\u02C6) ;; MODIFIER LETTER CIRCUMFLEX ACCENT 
       (?\x89 ?\u2030) ;; PER MILLE SIGN 
       (?\x8A ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON 
       (?\x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK 
       (?\x8C ?\u0152) ;; LATIN CAPITAL LIGATURE OE 
       (?\x8E ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON 
       (?\x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK 
       (?\x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK 
       (?\x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK 
       (?\x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK 
       (?\x95 ?\u2022) ;; BULLET 
       (?\x96 ?\u2013) ;; EN DASH 
       (?\x97 ?\u2014) ;; EM DASH 
       (?\x98 ?\u02DC) ;; SMALL TILDE 
       (?\x99 ?\u2122) ;; TRADE MARK SIGN 
       (?\x9A ?\u0161) ;; LATIN SMALL LETTER S WITH CARON 
       (?\x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK 
       (?\x9C ?\u0153) ;; LATIN SMALL LIGATURE OE 
       (?\x9E ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON 
       (?\x9F ?\u0178)) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS 
  with glyph = nil 
  with char-table = (make-char-table 'generic) 
  do (setq glyph (make-glyph (vector 'string :data (string desired)))) 
  (set-glyph-face glyph 'red) 
  (put-char-table actual glyph char-table) 
  finally (set-specifier current-display-table (cons 'global 
                                                     char-table)))