diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 1b4ebf8c3b9..ff31feb68ce 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -286,7 +286,16 @@ Redefining FUNCTION also does that." (defun cancel-debug-on-entry (&optional function) "Undo effect of \\[debug-on-entry] on FUNCTION. If argument is nil or an empty string, cancel for all functions." - (interactive "aCancel debug on entry (to function): ") + (interactive + (list (let ((name + (completing-read "Cancel debug on entry (to function): " + ;; Make an "alist" of the functions + ;; that now have debug on entry. + (mapcar 'list + (mapcar 'symbol-name + debug-function-list)) + nil t nil))) + (if name (intern name))))) (debugger-reenable) (if (and function (not (string= function ""))) (progn |