 (defun merlin--construct-point (point)
   "Execute a construct on POINT"
   (progn
-    (ignore point) ; Without this Emacs bytecode compiler complains about an    
+    (ignore point) ; Without this Emacs bytecode compiler complains about an
                    ; unused variable. This may be a bug in the compiler
     (let ((result (merlin-call "construct"
                               "-position" (merlin-unmake-point (point)))))

      (if (= (length results) 1)
        (insert-choice 0 0 (car results))
        (with-output-to-temp-buffer "*Constructions*"
          (progn 
            (with-current-buffer "*Constructions*"
              (setq-local 
                completion-list-insert-choice-function
                #'insert-choice))
            (display-completion-list results)))))))

;; ERROR BUFFER ;;
;;;;;;;;;;;;;;;;;;

(defvar merlin-error-buffer-map
  (let ((map (make-sparse-keymap)))
    (set-keymap-parent map special-mode-map)
