            (select-window (display-buffer (car r)))))
     (when r (goto-char (cdr r)))))
 
-;;;;;;;;;;;;;;;;
-;; OCCURENCES ;;
-;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;
+;; OCCURRENCES ;;
+;;;;;;;;;;;;;;;;;
 
 (defun merlin--occurrence-text (line-num marker start end source-buf)
   (concat (propertize (format "%7d:" line-num)

;;;;;;;;;;;;;;;;;;;;;;;;

(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."
  (let ((v (assoc key list)))
    (if v (cdr v)
      default)))

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