procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*** empty log message ***

Browse source
This commit is contained in:
Jim Blandy 1992-01-09 05:06:34 +00:00
parent e652a34a67
commit 10a4c11f7e
4 changed files with 109 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/debug.el
View file

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