57624 davidou (add-hook 'scheme-mode-hook (lambda () (loop for actual in '(?\") with glyph = nil with char-table = (make-char-table 'generic) do (setq glyph (make-glyph (vector 'string :data (string actual)))) (set-glyph-face glyph 'orange) (put-char-table actual glyph char-table) finally (set-specifier current-display-table (cons 'global char-table))) )) 3414887978 #xemacs