 (defconst zomp-identifier-chars "a-zA-Z0-9:*_")
 (defconst zomp-identifier-regexp "[a-zA-Z][a-zA-Z0-9:*_]*")
 
-(defun zomp-symbol-at-point ()
+(defun zomp-function-before-point ()
+  "Returns the function of the current expression. When curser is at '|'
+f(10, |20) will return f, print 10| will return print, etc."
   (interactive)
   (let ((linestart 0) (parenopen 0) exprstart funcend linesym funcsym)
     (setq linesym

        (setq left (- left 2)))

      ;; unindent keywords like elseif etc.
      (when (member (zomp-symbol-at-point) zomp-unindent-keywords)
        (setq left (- left 2)))

      (delete-horizontal-space)

                      (current-column))
                  (error 0)))

          (let ((w (zomp-function-before-point)))
            (cond ((looking-at "\\*")
                   (setq left (- left 1)))))

