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