File: 2s

package info (click to toggle)
sdc 1.0.8beta-8
  • links: PTS
  • area: contrib
  • in suites: slink
  • size: 1,400 kB
  • ctags: 874
  • sloc: lisp: 8,120; ansic: 967; makefile: 671; perl: 136; sh: 50
file content (6 lines) | stat: -rw-r--r-- 148 bytes parent folder | download 
1
2
3
4
5
6
 
;			     -*-scheme-*-
(hook 'face 'add
      (lambda (face)
	`(("2S"
	   . ,(let* ((1s (member "1S" face)))
		(if 1s (rm1 (car 1s) face) face))))))