(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)))
	    ))