chiark - git - mdw - sod/blob - emacs-hacks.el

   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                  (label 1)
  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))))