Commit cafbc9a5 authored by Stefan Monnier's avatar Stefan Monnier

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

parent 91fc05b1
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment