                               (s/button :id :doc-button
                                         :text (utils/get-string :doc)
                                         :focusable? false
-                                        :visible? (not (nil? completion))
-                                        :listen [:action run-completion])
+                                        :visible? (not (nil? completer))
+                                        :listen [:action do-completion-fn])
                               (s/toggle :id :paredit-button
                                         :text (utils/get-string :paredit)
                                         :focusable? false

                                    :redo-button redo-file
                                    :font-dec-button decrease-font-size
                                    :font-inc-button increase-font-size
                                    :doc-button run-completion
                                    :paredit-button toggle-paredit
                                    :find-field focus-on-find
                                    :replace-field focus-on-replace})

    (let [is-clojure? (contains? clojure-exts extension)
          text-area (get-text-area)
          toggle-paredit-fn (when is-clojure? (paredit/get-toggle-fn text-area))
          completer (get-completer text-area extension)
          do-completion-fn (fn [_]
                             (s/request-focus! text-area)
                             (when completer (.doCompletion completer)))
          btn-group (ui/wrap-panel
                      :items [(s/button :id :save-button
                                        :text (utils/get-string :save)
