[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)
		 (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)
	9	(acond . cond)
	10	(define-class-slot 3)))
	11	(put (car entry) 'common-lisp-indent-function
	12	(if (symbolp (cdr entry))
	13	(get (cdr entry) 'common-lisp-indent-function)
	14	(cadr entry))))