
(global-set-key "\M-." 'd-meta-period)

(defun d-meta-period (function)
  (interactive "MEnter Command: ")
  (goto-char (point-min))
  (if (not (re-search-forward (concat "::" function "(") nil t))
      (re-search-forward (concat function "(" nil t)))
  (beginning-of-line))

(provide 'd-meta-period)
;;; d-meta-period.el ends here
