Skip to content

Instantly share code, notes, and snippets.

@farynaio

farynaio/edebug-on-entry-on-point.el

Last active August 16, 2023 23:09
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save farynaio/651f102a616d34811ae2ed9da2ad4abb to your computer and use it in GitHub Desktop.
Save farynaio/651f102a616d34811ae2ed9da2ad4abb to your computer and use it in GitHub Desktop.
Download ZIP
Enhanced edebug-on-entry which sets function symbol on point as initial suggestion.
Raw
edebug-on-entry-on-point.el
(defun afa/edebug-on-entry-on-point (&optional flag)
"Enhanced `edebug-on-entry'.
ets function symbol on point as initial suggestion."
(interactive "P")
(let ((function-name
(intern
(funcall
completing-read-function
"Edebug on entry to: "
(mapcar 'symbol-name (apropos-internal ".*"))
'commandp
t
(symbol-name (symbol-at-point))))))
(edebug-on-entry function-name flag)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment