   "Default expressions to highlight in Egison modes.")
 
 
-(defun open-paren-p ()
+(defun egison-open-paren-p ()
   (let ((c (string-to-char (thing-at-point 'char))))
     (or (eq c 40) (eq c 60) (eq c 91) (eq c 123))))
 
-(defun close-paren-p ()
+(defun egison-close-paren-p ()
   (let ((c (string-to-char (thing-at-point 'char))))
     (or (eq c 41) (eq c 62) (eq c 93) (eq c 125))))
 
-(defun last-unclosed-paren ()
+(defun egison-last-unclosed-paren ()
   (save-excursion
     (let ((pc 0))
       (while (<= pc 0)
         (if (bobp)
             (setq pc 2)
           (backward-char)
-          (if (open-paren-p)
+          (if (egison-open-paren-p)
               (progn
                 (setq pc (+ pc 1))
                 (if (and (= pc 0) (= (current-column) 0))
                     (setq pc 2)))
-            (if (close-paren-p)
+            (if (egison-close-paren-p)
                 (setq pc (- pc 1))))))
       (if (= pc 2)
           nil
         (point)))))
 
-(defun indent-point ()
+(defun egison-indent-point ()
   (save-excursion
     (beginning-of-line)
-    (let ((p (last-unclosed-paren)))
+    (let ((p (egison-last-unclosed-paren)))
       (if p
           (progn
-            (goto-char (last-unclosed-paren))
+            (goto-char (egison-last-unclosed-paren))
             (let ((cp (current-column)))
               (cond ((eq (string-to-char (thing-at-point 'char)) 40)
                      (forward-char)
                      (let* ((op (current-word))
-                            (ip (keyword-indent-point op)))
+                            (ip (egison-keyword-indent-point op)))
                        (if ip
                            (+ ip cp)
                          (progn (forward-sexp)

                    (t (+ 1 cp)))))
        0))))

(defun keyword-indent-point (name)
  (cond ((equal "module" name) 2)
        ((equal "define" name) 2)
        ((equal "test" name) 2)

(defun egison-indent-line ()
  "indent current line as Egison code."
  (interactive)
  (indent-line-to (egison-indent-point)))


(defvar egison-mode-map
