 
 
 (defun get-file-at-line (line)
+; (message file-table)
   (cdr (assoc line file-table)))
 
 (provide 'project)

  (interactive)
  (setq fileinfo-to-insert (current-menu-entry))
  (setq filename (car fileinfo-to-insert))
  (setq comment (car (cdr fileinfo-to-insert)))
  (switch-to-buffer (other-buffer))
  (insert-org-image filename comment))


(defun current-menu-entry ()


  (interactive "p")

  (use-local-map rc-menu-mode-map))

;;;###autoload
