Re: debug-on-entry question

[Juri Linkov <juri@jurta.org>]

> 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/