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