   (zomp-add-action zomp-tl-help [(control c)(control h)] "Show toplevel help")
 
   (zomp-add-seperator zomp-sep4)
-  (zomp-add-action zomp-indent-current [(meta q)] "Indent current")
+  (zomp-add-action zomp-indent-current-or-fill [(meta q)] "Indent current")
   (zomp-add-action zomp-indent-buffer [(shift meta q)] "Indent buffer")
 
   (zomp-add-seperator zomp-sep-2)


(defun zomp-setup ()
  (setq comment-start "//")
  (setq comment-start-skip "// *")
  (setq comment-end "")

  (dolist (op (list ?: ?+ ?- ?= ?! ?? ?* ?/ ?& ?| ?^))

  (search-forward-regexp zomp-tl-expr-regexp)
  (backward-char)
  (when (looking-at "end")
    (next-line)
    (search-forward-regexp zomp-tl-expr-regexp)
    (backward-char)))
