;			     -*-scheme-*-
(hook 'face 'add
      (lambda (face)
	`(("2C"
	   . ,(let* ((1c (member "1C" face)))
		(if 1c (rm1 (car 1c) face) face))))))
