 ;; ERROR BUFFER ;;
 ;;;;;;;;;;;;;;;;;;
 
-(defun merlin--error-is-short (text)
-  (let ((count 0)
-        (pos   0))
-    (save-match-data
-      (while (and (<= count 8)
-                  (string-match "\n" text pos))
-        (setq pos (match-end 0))
-        (setq count (1+ count))))
-    (<= count 8)))
-
 (defvar merlin-error-buffer-map
   (let ((map (make-sparse-keymap)))
     (set-keymap-parent map special-mode-map)

      (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)))))))

(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)))))
