diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-01-09 05:06:34 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-01-09 05:06:34 +0000 |
| commit | 10a4c11f7e8d1bcb8448a7771850b95c7c46caba (patch) | |
| tree | 7daac1a5fee21309d54e7cb53ac17e02b9fba11a /lisp/emacs-lisp | |
| parent | e652a34a67f502767cd6e06800690438e4843a18 (diff) | |
| download | emacs-10a4c11f7e8d1bcb8448a7771850b95c7c46caba.tar.gz emacs-10a4c11f7e8d1bcb8448a7771850b95c7c46caba.tar.bz2 emacs-10a4c11f7e8d1bcb8448a7771850b95c7c46caba.zip | |
*** empty log message ***
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 |