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

(cancel-debug-on-entry): Don't cons uselessly.

Browse source
This commit is contained in:
Stefan Monnier 2002-06-18 21:53:30 +00:00
parent 91fc05b1ae
commit cafbc9a576
1 changed files with 1 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -633,11 +633,7 @@ If argument is nil or an empty string, cancel for all functions."
(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))
(mapcar 'symbol-name debug-function-list)
nil t nil)))
(if name (intern name)))))
(debugger-reenable)