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

1 files changed, 1 insertions, 5 deletions

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 8c81dbd0bd8..a0165a8d198 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -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)