57573 kehoea (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))) 3414845210 #xemacs Emacs Lisp