> 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"))))
A better way to do this is to change the interactive specification of `debug-on-entry' to call `function-called-at-point'. For post-release: it would be good to rewrite the function `call-interactively' in Lisp which will allow easy modification of reading arguments according to code letters (e.g. in this particular case adding a call to `function-called-at-point' for the code letter `a'). -- Juri Linkov http://www.jurta.org/emacs/ _______________________________________________ Emacs-devel mailing list [email protected] http://lists.gnu.org/mailman/listinfo/emacs-devel
