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

(defun merlin--construct-point (point)
  "Execute a construct on POINT"
  (progn
    (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)))))

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

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