Mercurial > emacs

changeset 45906:cacf84433461

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cancel-debug-on-entry): Don't cons uselessly.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 18 Jun 2002 21:53:30 +0000
parents 20781c152651
children 5ec9521eeae0
files lisp/emacs-lisp/debug.el
diffstat 1 files changed, 1 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/debug.el	Tue Jun 18 21:52:42 2002 +0000
+++ b/lisp/emacs-lisp/debug.el	Tue Jun 18 21:53:30 2002 +0000
@@ -633,11 +633,7 @@
   (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)