 (defun keyword-indent-point (name)
   (cond ((equal "define" name) 2)
         ((equal "lambda" name) 2)
+        ((equal "function" name) 2)
         ((equal "macro" name) 2)
         ((equal "let" name) 2)
         ((equal "letrec" name) 2)

     "\\<let\\>"
     "\\<letrec\\>"
     "\\<matcher\\>"
     "\\<loop\\>"
     "\\<match\\>"
     "\\<match-all\\>"

     "\\<undefined\\>"
     "\\<something\\>"

        ((equal "match" name) 2)
        ((equal "match-all" name) 2)
        ((equal "matcher" name) 2)
        ((equal "algebraic-data-matcher" name) 2)
        ((equal "generate-array" name) 2)
        ((equal "index-loop" name) 2)
        ((equal "pattern-constructor" name) 2)
        ))

(defun egison-indent-line ()
