[sod] / emacs-hacks.el

(dolist (entry '((parse 0)
		 (many 1)
		 (skip-many 1)
		 (seq 1)
		 (lisp 0)
		 (if-parse 2)
		 (if-char 2)
		 (expr 1)
		 (label 1)
		 (acond . cond)
		 (define-class-slot 3)))
  (put (car entry) 'common-lisp-indent-function
       (if (symbolp (cdr entry))
	   (get (cdr entry) 'common-lisp-indent-function)
	 (cadr entry))))
Commit	Line	Data
dea4d055 MW	1	(dolist (entry '((parse 0)
	2	(many 1)
	3	(skip-many 1)
	4	(seq 1)
	5	(lisp 0)
	6	(if-parse 2)
	7	(if-char 2)
	8	(expr 1)
239fa5bd	9	(label 1)
dea4d055 MW	10	(acond . cond)
	11	(define-class-slot 3)))
	12	(put (car entry) 'common-lisp-indent-function
	13	(if (symbolp (cdr entry))
	14	(get (cdr entry) 'common-lisp-indent-function)
	15	(cadr entry))))