Is there an existing function which performs the following?

(defun debug-on-entry-at-point ()
  "Perform \\[debug-on-entry] on the function at point."
  (let ((fn (function-called-at-point)))
    (if fn
(debug-on-entry fn)
      (message "No function at point"))))

--
"Cut your own wood and it will warm you twice"
Regards, Yoni Rabkin Katzenell



_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu....
http://lists.gnu.org/mailman/listinfo/emacs-devel