From cafbc9a5766b07835667846f28aa7fccc58d44d2 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 18 Jun 2002 21:53:30 +0000 Subject: [PATCH] (cancel-debug-on-entry): Don't cons uselessly. --- lisp/emacs-lisp/debug.el | 6 +----- 1 file changed, 1 insertion(+), 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) -- 2.39.2