                             (if buff
                                 (progn
                                   (pop-to-buffer buff)
-                                  (merlin-goto-point start))
+                                  (goto-char marker))
                               (message "Closed buffer : %s" src-buff))))))
              (insert "  + ")
              (insert-button

         (lambda (pos)
           (lexical-let*
               ((start (assoc 'start pos))
                (line  (cdr (assoc 'line start)))
                (col   (cdr (assoc 'col  start)))
                (action (lambda (ev)

      (if (listp r)
          (merlin-occurences-list r)
        (message r)))))

(defun merlin-local-occurences ()
  (interactive)
  (merlin-occurences t))

;;;;;;;;;;;;;;;;;;;;;;;
;; SEMANTIC MOVEMENT ;;
