 ;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defun lookup-default (key list &optional default)
-  "Lookup KEY in LIST which a list of pairs. If it not found,
-return DEFAULT or the value associated to KEY otherwise."
+  "Lookup KEY in LIST which is a list of pairs. If not found,
+return DEFAULT or the value associated to KEY."
   (let ((v (assoc key list)))
     (if v (cdr v)
       default)))

                                (tail (cond ((equal tail "position")
                                             " (* tail position *)")
                                            ((equal tail "call")
                                             " (* tail cail *)")
                                            (t "")))
                                (type (cdr (assoc 'type obj))))
                           (cons (concat type tail)

           (select-window (display-buffer (car r)))))
    (when r (goto-char (cdr r)))))

;;;;;;;;;;;;;;;;;
;; OCCURRENCES ;;
;;;;;;;;;;;;;;;;;

(defun merlin--occurrence-text (line-num marker start end source-buf)
  (concat (propertize (format "%7d:" line-num)
