From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 18 Jun 2002 21:53:30 +0000 (+0000)
Subject: (cancel-debug-on-entry): Don't cons uselessly.
X-Git-Tag: ttn-vms-21-2-B4~14544
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cafbc9a5766b07835667846f28aa7fccc58d44d2;p=emacs.git

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

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)